Initial commit
This commit is contained in:
@@ -0,0 +1,161 @@
|
||||
<?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="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>445, 30</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="mnuGenerate.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MnuImport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItemVorlage.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="OpenFileDialog1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="OpenFileDialog1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</data>
|
||||
<data name="DataSet3.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>257, 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="C1TrueDBGrid1.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="$this.Name">
|
||||
<value>FrmDomainOfficeVorlageDatei</value>
|
||||
</data>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,241 @@
|
||||
<?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="sptHorizontal.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlTop.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdAlleAnzeigen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdNew.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdEdit.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="grdMitarbeiter.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="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlBottom.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlRight.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdFunktionsgruppen.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="Label4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="sptVertikal.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="pnlLeft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdTeams.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="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>405, 30</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAAwCwAAAk1TRnQBSQFMAgEBBAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
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//8A/wD/AP8A/wD/
|
||||
AP8A/wAZABACCP8BChD/AewBAAHsBP8GAAEDAf8IAAICDQABAgX/AQcBFAHsAfMBEgHxDP8B7AEAAv8B
|
||||
7AT/BAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMBAAECA/8BBwEUAewD/wHzARIB8Qn/AewBAAT/AQAB
|
||||
7AP/AgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgH/AQcBFAHsBv8B8wESAfEG/wHsAQAF
|
||||
/wH8Af8B7AP/AQABAwHsAQMB7AEDAewB/wEAAewGAAECAQACAwYAAgcBAAEDAQABAgFnAewC/wIHAv8C
|
||||
BwH/AfMBEgHxBP8BAAX/AfwB/wH8Af8BAAHsAv8BAAHsAQMB7AEDAewBAwH/AQAB7AYAAQIBAAIDCQAB
|
||||
AwEAAQIBZwGSAf8BBwL/AgcB8QEHAfEBBwHzARIB8QP/AewD/wH8Af8B/AL/AfwB/wHsAv8BAAEDAewB
|
||||
AwIAAewB/wEAAewGAAECAQAMAwEAAQIB/wEHAZIB/wIHAfEBBwHxAgcC8QHzARIC/wHsAQcBAAL/AfwC
|
||||
/wH8Af8B/AH/AQAB7AH/AQAB7AEDAewCBwEDAf8BAAHsAQABBgQAAQIBAAIDCAACAwEAAQIC/wEHAW0B
|
||||
EAEHAfECBwHxAQcB8QH/AfMBbQE+Af8DBwP/AfwB/wH8Av8B/AH/AewB/wEAAQMB7AEDAewBAwHsAf8C
|
||||
AAEGBf4BAgEAAQMBAAgHAQABAwEAAQIC/wGSATcBbQH/AQcB8QEHAfED/wIHAT4B/wEAAgcBAAL/AfwC
|
||||
/wH8Af8B/AH/AQAB7AEAAewBAwHsAQMB7AEDAf8BAAFtBv4BAgEAAQMBAAgHAQABAwEAAQIC/wFKAVgB
|
||||
7AGSAvEC/wGYA/8BFQL/AgACBwX/AfwC/wH8Af8B7AEAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAQIB
|
||||
AAEDAQAIBwEAAQMBAAECAf8BkgE3AewB/wEHAZIB/wG2Ac8BmAHxAuwF/wEAAQcBAAH/AwcB/wH8A/8C
|
||||
AAHsAQMB7AEDAewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQABAgH/AUoBWAEHAv8BBwGSAb0B
|
||||
8QLsBP8BAAP/AQABBwH/AgcH/wEAAQMB7AEDAewBBwH/AewBAAHsAgABbQMAAQIBAAEDAQAIBwMAAQIB
|
||||
/wEeAewE/wEHAW0B7Aj/AQAC/wIAAv8BAAHsAQcC/wEAAf8BAAHsAQMBBwH/AewBAAPsBgABAgEAAQMB
|
||||
AAgHAQABBwEAAQIC/wEHEf8BAAH/AQAB/wEAAf8BBwMAAv8BAAEHAf8B7AEABewGAAECDgABAhb/AQAE
|
||||
/wEHAQAD/xAAEAIg/wFCAU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA///AAIAAfwB
|
||||
fwYAAfABfwYAAcABfwcAAR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHxwACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="tbMenu.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmAdminMitarbeiter</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,684 @@
|
||||
Imports EDOKALib
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Collections.ObjectModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Data
|
||||
|
||||
Public Class frmAdminMitarbeiter
|
||||
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 sptHorizontal As System.Windows.Forms.Splitter
|
||||
Friend WithEvents pnlTop As System.Windows.Forms.Panel
|
||||
Friend WithEvents cmdNew As System.Windows.Forms.Button
|
||||
Friend WithEvents cmdEdit As System.Windows.Forms.Button
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents grdMitarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents pnlBottom As System.Windows.Forms.Panel
|
||||
Friend WithEvents pnlRight As System.Windows.Forms.Panel
|
||||
Friend WithEvents grdFunktionsgruppen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents sptVertikal As System.Windows.Forms.Splitter
|
||||
Friend WithEvents pnlLeft As System.Windows.Forms.Panel
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents grdTeams As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents cmdAlleAnzeigen As System.Windows.Forms.Button
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents tbMenu As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents cmdClose As System.Windows.Forms.ToolBarButton
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmAdminMitarbeiter))
|
||||
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.sptHorizontal = New System.Windows.Forms.Splitter()
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.cmdAlleAnzeigen = New System.Windows.Forms.Button()
|
||||
Me.cmdNew = New System.Windows.Forms.Button()
|
||||
Me.cmdEdit = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.grdMitarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.pnlBottom = New System.Windows.Forms.Panel()
|
||||
Me.pnlRight = New System.Windows.Forms.Panel()
|
||||
Me.grdFunktionsgruppen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.sptVertikal = New System.Windows.Forms.Splitter()
|
||||
Me.pnlLeft = New System.Windows.Forms.Panel()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.grdTeams = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.tbMenu = New System.Windows.Forms.ToolBar()
|
||||
Me.cmdClose = New System.Windows.Forms.ToolBarButton()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
CType(Me.grdMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlBottom.SuspendLayout()
|
||||
Me.pnlRight.SuspendLayout()
|
||||
CType(Me.grdFunktionsgruppen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlLeft.SuspendLayout()
|
||||
CType(Me.grdTeams, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'sptHorizontal
|
||||
'
|
||||
Me.sptHorizontal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.sptHorizontal.Cursor = System.Windows.Forms.Cursors.HSplit
|
||||
Me.sptHorizontal.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.sptHorizontal.Location = New System.Drawing.Point(0, 472)
|
||||
Me.sptHorizontal.Name = "sptHorizontal"
|
||||
Me.sptHorizontal.Size = New System.Drawing.Size(656, 3)
|
||||
Me.sptHorizontal.TabIndex = 10
|
||||
Me.sptHorizontal.TabStop = False
|
||||
'
|
||||
'pnlTop
|
||||
'
|
||||
Me.pnlTop.Controls.AddRange(New System.Windows.Forms.Control() {Me.tbMenu, Me.cmdAlleAnzeigen, Me.cmdNew, Me.cmdEdit, Me.Label1, Me.grdMitarbeiter, Me.Label2})
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(656, 472)
|
||||
Me.pnlTop.TabIndex = 13
|
||||
'
|
||||
'cmdAlleAnzeigen
|
||||
'
|
||||
Me.cmdAlleAnzeigen.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left)
|
||||
Me.cmdAlleAnzeigen.Location = New System.Drawing.Point(24, 440)
|
||||
Me.cmdAlleAnzeigen.Name = "cmdAlleAnzeigen"
|
||||
Me.cmdAlleAnzeigen.Size = New System.Drawing.Size(152, 23)
|
||||
Me.cmdAlleAnzeigen.TabIndex = 5
|
||||
Me.cmdAlleAnzeigen.Text = "Alle Mitarbeiter anzeigen"
|
||||
'
|
||||
'cmdNew
|
||||
'
|
||||
Me.cmdNew.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.cmdNew.Location = New System.Drawing.Point(552, 440)
|
||||
Me.cmdNew.Name = "cmdNew"
|
||||
Me.cmdNew.Size = New System.Drawing.Size(88, 23)
|
||||
Me.cmdNew.TabIndex = 3
|
||||
Me.cmdNew.Text = "&Neu..."
|
||||
'
|
||||
'cmdEdit
|
||||
'
|
||||
Me.cmdEdit.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.cmdEdit.Location = New System.Drawing.Point(456, 440)
|
||||
Me.cmdEdit.Name = "cmdEdit"
|
||||
Me.cmdEdit.Size = New System.Drawing.Size(88, 23)
|
||||
Me.cmdEdit.TabIndex = 2
|
||||
Me.cmdEdit.Text = "&Bearbeiten..."
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 40)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(248, 23)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Mitarbeiterverwaltung"
|
||||
'
|
||||
'grdMitarbeiter
|
||||
'
|
||||
Me.grdMitarbeiter.AllowFilter = True
|
||||
Me.grdMitarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.grdMitarbeiter.AllowSort = True
|
||||
Me.grdMitarbeiter.AllowUpdate = False
|
||||
Me.grdMitarbeiter.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.grdMitarbeiter.CaptionHeight = 17
|
||||
Me.grdMitarbeiter.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.grdMitarbeiter.CollapseColor = System.Drawing.Color.Black
|
||||
Me.grdMitarbeiter.DataChanged = False
|
||||
Me.grdMitarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.grdMitarbeiter.ExpandColor = System.Drawing.Color.Black
|
||||
Me.grdMitarbeiter.FilterBar = True
|
||||
Me.grdMitarbeiter.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.grdMitarbeiter.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.grdMitarbeiter.Location = New System.Drawing.Point(24, 104)
|
||||
Me.grdMitarbeiter.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.grdMitarbeiter.Name = "grdMitarbeiter"
|
||||
Me.grdMitarbeiter.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.grdMitarbeiter.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.grdMitarbeiter.PreviewInfo.ZoomFactor = 75
|
||||
Me.grdMitarbeiter.PrintInfo.ShowOptionsDialog = False
|
||||
Me.grdMitarbeiter.RecordSelectorWidth = 16
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.grdMitarbeiter.RowDivider = GridLines1
|
||||
Me.grdMitarbeiter.RowHeight = 15
|
||||
Me.grdMitarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.grdMitarbeiter.ScrollTips = False
|
||||
Me.grdMitarbeiter.Size = New System.Drawing.Size(616, 328)
|
||||
Me.grdMitarbeiter.TabIndex = 0
|
||||
Me.grdMitarbeiter.Text = "C1TrueDBGrid1"
|
||||
Me.grdMitarbeiter.WrapCellPointer = True
|
||||
Me.grdMitarbeiter.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:Aqua;}Selected{" & _
|
||||
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
||||
"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
|
||||
"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
||||
"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
|
||||
"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
|
||||
"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
|
||||
"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
|
||||
"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
|
||||
"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
|
||||
"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 612, 324</Cl" & _
|
||||
"ientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" />" & _
|
||||
"<EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""St" & _
|
||||
"yle8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""F" & _
|
||||
"ooter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle par" & _
|
||||
"ent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7""" & _
|
||||
" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" m" & _
|
||||
"e=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Select" & _
|
||||
"edStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C" & _
|
||||
"1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" " & _
|
||||
"/><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><S" & _
|
||||
"tyle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><St" & _
|
||||
"yle parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style " & _
|
||||
"parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style" & _
|
||||
" parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><St" & _
|
||||
"yle parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Name" & _
|
||||
"dStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout" & _
|
||||
"><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 612, 324</ClientAr" & _
|
||||
"ea></Blob>"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.Label2.Location = New System.Drawing.Point(24, 64)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(608, 32)
|
||||
Me.Label2.TabIndex = 4
|
||||
Me.Label2.Text = "Auf dieser Übersicht sind alle Mitarbeiter zu sehen. Über die Schaltflächen ""Neu." & _
|
||||
"."" und ""Bearbeiten..."" können Sie neue Benutzer erfassen, bzw bestehende editier" & _
|
||||
"en."
|
||||
'
|
||||
'pnlBottom
|
||||
'
|
||||
Me.pnlBottom.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlRight, Me.sptVertikal, Me.pnlLeft})
|
||||
Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlBottom.Location = New System.Drawing.Point(0, 472)
|
||||
Me.pnlBottom.Name = "pnlBottom"
|
||||
Me.pnlBottom.Size = New System.Drawing.Size(656, 110)
|
||||
Me.pnlBottom.TabIndex = 14
|
||||
'
|
||||
'pnlRight
|
||||
'
|
||||
Me.pnlRight.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdFunktionsgruppen, Me.Label4})
|
||||
Me.pnlRight.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlRight.Location = New System.Drawing.Point(491, 0)
|
||||
Me.pnlRight.Name = "pnlRight"
|
||||
Me.pnlRight.Size = New System.Drawing.Size(165, 110)
|
||||
Me.pnlRight.TabIndex = 2
|
||||
'
|
||||
'grdFunktionsgruppen
|
||||
'
|
||||
Me.grdFunktionsgruppen.AllowFilter = True
|
||||
Me.grdFunktionsgruppen.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.grdFunktionsgruppen.AllowSort = True
|
||||
Me.grdFunktionsgruppen.AllowUpdate = False
|
||||
Me.grdFunktionsgruppen.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.grdFunktionsgruppen.CaptionHeight = 17
|
||||
Me.grdFunktionsgruppen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.grdFunktionsgruppen.CollapseColor = System.Drawing.Color.Black
|
||||
Me.grdFunktionsgruppen.DataChanged = False
|
||||
Me.grdFunktionsgruppen.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.grdFunktionsgruppen.ExpandColor = System.Drawing.Color.Black
|
||||
Me.grdFunktionsgruppen.FilterBar = True
|
||||
Me.grdFunktionsgruppen.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.grdFunktionsgruppen.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.grdFunktionsgruppen.Location = New System.Drawing.Point(8, 40)
|
||||
Me.grdFunktionsgruppen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.grdFunktionsgruppen.Name = "grdFunktionsgruppen"
|
||||
Me.grdFunktionsgruppen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.grdFunktionsgruppen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.grdFunktionsgruppen.PreviewInfo.ZoomFactor = 75
|
||||
Me.grdFunktionsgruppen.PrintInfo.ShowOptionsDialog = False
|
||||
Me.grdFunktionsgruppen.RecordSelectorWidth = 16
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.grdFunktionsgruppen.RowDivider = GridLines2
|
||||
Me.grdFunktionsgruppen.RowHeight = 15
|
||||
Me.grdFunktionsgruppen.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.grdFunktionsgruppen.ScrollTips = False
|
||||
Me.grdFunktionsgruppen.Size = New System.Drawing.Size(149, 54)
|
||||
Me.grdFunktionsgruppen.TabIndex = 4
|
||||
Me.grdFunktionsgruppen.Text = "C1TrueDBGrid1"
|
||||
Me.grdFunktionsgruppen.WrapCellPointer = True
|
||||
Me.grdFunktionsgruppen.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:Aqua;}Selected{" & _
|
||||
"ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactive" & _
|
||||
"CaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 128;}Footer" & _
|
||||
"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
||||
"or:Highlight;}Style9{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
|
||||
"enter;}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:Co" & _
|
||||
"ntrolText;BackColor:Control;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
|
||||
"tyle13{}Style1{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
|
||||
"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
|
||||
"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
|
||||
"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 145, 50</Cli" & _
|
||||
"entRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><" & _
|
||||
"EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Sty" & _
|
||||
"le8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Fo" & _
|
||||
"oter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle pare" & _
|
||||
"nt=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" " & _
|
||||
"/><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me" & _
|
||||
"=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selecte" & _
|
||||
"dStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1" & _
|
||||
".Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /" & _
|
||||
"><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><St" & _
|
||||
"yle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Sty" & _
|
||||
"le parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style p" & _
|
||||
"arent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style " & _
|
||||
"parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Sty" & _
|
||||
"le parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Named" & _
|
||||
"Styles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout>" & _
|
||||
"<DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 145, 50</ClientArea" & _
|
||||
"></Blob>"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.Location = New System.Drawing.Point(8, 8)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(280, 23)
|
||||
Me.Label4.TabIndex = 3
|
||||
Me.Label4.Text = "Zugewiesene Funktionsgruppen"
|
||||
'
|
||||
'sptVertikal
|
||||
'
|
||||
Me.sptVertikal.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.sptVertikal.Location = New System.Drawing.Point(488, 0)
|
||||
Me.sptVertikal.Name = "sptVertikal"
|
||||
Me.sptVertikal.Size = New System.Drawing.Size(3, 110)
|
||||
Me.sptVertikal.TabIndex = 1
|
||||
Me.sptVertikal.TabStop = False
|
||||
'
|
||||
'pnlLeft
|
||||
'
|
||||
Me.pnlLeft.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.grdTeams})
|
||||
Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.pnlLeft.Name = "pnlLeft"
|
||||
Me.pnlLeft.Size = New System.Drawing.Size(488, 110)
|
||||
Me.pnlLeft.TabIndex = 0
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label3.Location = New System.Drawing.Point(8, 8)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(248, 23)
|
||||
Me.Label3.TabIndex = 2
|
||||
Me.Label3.Text = "Zugewiesene Teams"
|
||||
'
|
||||
'grdTeams
|
||||
'
|
||||
Me.grdTeams.AllowFilter = True
|
||||
Me.grdTeams.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.grdTeams.AllowSort = True
|
||||
Me.grdTeams.AllowUpdate = False
|
||||
Me.grdTeams.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.grdTeams.CaptionHeight = 17
|
||||
Me.grdTeams.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.grdTeams.CollapseColor = System.Drawing.Color.Black
|
||||
Me.grdTeams.DataChanged = False
|
||||
Me.grdTeams.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.grdTeams.ExpandColor = System.Drawing.Color.Black
|
||||
Me.grdTeams.FilterBar = True
|
||||
Me.grdTeams.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.grdTeams.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
|
||||
Me.grdTeams.Location = New System.Drawing.Point(24, 40)
|
||||
Me.grdTeams.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.grdTeams.Name = "grdTeams"
|
||||
Me.grdTeams.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.grdTeams.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.grdTeams.PreviewInfo.ZoomFactor = 75
|
||||
Me.grdTeams.PrintInfo.ShowOptionsDialog = False
|
||||
Me.grdTeams.RecordSelectorWidth = 16
|
||||
GridLines3.Color = System.Drawing.Color.DarkGray
|
||||
GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.grdTeams.RowDivider = GridLines3
|
||||
Me.grdTeams.RowHeight = 15
|
||||
Me.grdTeams.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.grdTeams.ScrollTips = False
|
||||
Me.grdTeams.Size = New System.Drawing.Size(448, 54)
|
||||
Me.grdTeams.TabIndex = 1
|
||||
Me.grdTeams.Text = "C1TrueDBGrid1"
|
||||
Me.grdTeams.WrapCellPointer = True
|
||||
Me.grdTeams.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{BackColor:255, 255, 128;}Footer" & _
|
||||
"{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
||||
"or:Highlight;}Style1{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:C" & _
|
||||
"enter;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:C" & _
|
||||
"ontrolText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}S" & _
|
||||
"tyle13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" C" & _
|
||||
"aptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FilterBar=""Tr" & _
|
||||
"ue"" MarqueeStyle=""SolidCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" " & _
|
||||
"VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 444, 50</Cli" & _
|
||||
"entRect><BorderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><" & _
|
||||
"EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Sty" & _
|
||||
"le8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Fo" & _
|
||||
"oter"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle pare" & _
|
||||
"nt=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" " & _
|
||||
"/><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me" & _
|
||||
"=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><Selecte" & _
|
||||
"dStyle parent=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1" & _
|
||||
".Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /" & _
|
||||
"><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><St" & _
|
||||
"yle parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Sty" & _
|
||||
"le parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style p" & _
|
||||
"arent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style " & _
|
||||
"parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Sty" & _
|
||||
"le parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></Named" & _
|
||||
"Styles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout>" & _
|
||||
"<DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 444, 50</ClientArea" & _
|
||||
"></Blob>"
|
||||
'
|
||||
'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
|
||||
'
|
||||
'tbMenu
|
||||
'
|
||||
Me.tbMenu.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right)
|
||||
Me.tbMenu.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.cmdClose})
|
||||
Me.tbMenu.Dock = System.Windows.Forms.DockStyle.None
|
||||
Me.tbMenu.DropDownArrows = True
|
||||
Me.tbMenu.ImageList = Me.ImageList1
|
||||
Me.tbMenu.Name = "tbMenu"
|
||||
Me.tbMenu.ShowToolTips = True
|
||||
Me.tbMenu.Size = New System.Drawing.Size(648, 25)
|
||||
Me.tbMenu.TabIndex = 15
|
||||
'
|
||||
'cmdClose
|
||||
'
|
||||
Me.cmdClose.ImageIndex = 0
|
||||
Me.cmdClose.Tag = "close"
|
||||
'
|
||||
'frmAdminMitarbeiter
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(656, 582)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.sptHorizontal, Me.pnlBottom, Me.pnlTop})
|
||||
Me.Name = "frmAdminMitarbeiter"
|
||||
Me.Text = "frmAdminMitarbeiter"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
CType(Me.grdMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlBottom.ResumeLayout(False)
|
||||
Me.pnlRight.ResumeLayout(False)
|
||||
CType(Me.grdFunktionsgruppen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlLeft.ResumeLayout(False)
|
||||
CType(Me.grdTeams, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Private Methods"
|
||||
|
||||
'''<summary>Lädt alle Mitarbeiter zu der ausgewählten FunktionsGruppe</summary>
|
||||
Private Function FunktionsGruppenSelectedChanged()
|
||||
Try
|
||||
If grdFunktionsgruppen.Splits(0).Rows.Count = 0 Then
|
||||
Return 1
|
||||
End If
|
||||
|
||||
'alle teams zu selektiertem mitarbeiter laden
|
||||
Dim itemNr As Integer
|
||||
itemNr = grdFunktionsgruppen.Columns("funktionsgruppenr").Value
|
||||
|
||||
Dim ds As New DataSet()
|
||||
BusinessFacade.Mitarbeiter.GetListeByFunktionsGruppeNr(itemNr, ds)
|
||||
grdMitarbeiter.DataSource = ds.Tables(0)
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)
|
||||
|
||||
'keine teams anzeigen
|
||||
grdTeams.DataSource = Nothing
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
'''<summary>Lädt alle Mitarbeiter zum ausgewählten Team</summary>
|
||||
Private Function TeamSelectedChanged()
|
||||
Try
|
||||
If grdTeams.Splits(0).Rows.Count = 0 Then
|
||||
Return 1
|
||||
End If
|
||||
|
||||
'alle teams zu selektiertem mitarbeiter laden
|
||||
Dim itemNr As Integer
|
||||
itemNr = grdTeams.Columns("teamnr").Value
|
||||
|
||||
Dim ds As New DataSet()
|
||||
BusinessFacade.Mitarbeiter.GetListeByTeamNr(itemNr, ds)
|
||||
grdMitarbeiter.DataSource = ds.Tables(0)
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)
|
||||
|
||||
'keine funktionsgruppe anzeigen
|
||||
grdFunktionsgruppen.DataSource = Nothing
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Event handlers"
|
||||
|
||||
Private Sub tbMenu_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbMenu.ButtonClick
|
||||
Try
|
||||
Close()
|
||||
Catch ex As Exception
|
||||
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(300), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.tbMenu_ButtonClick: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub frmAdminMitarbeiter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
|
||||
'Alle Mitarbeiter laden
|
||||
Dim dsMitarbeiter As New DataSet()
|
||||
BusinessFacade.Mitarbeiter.GetListe(dsMitarbeiter)
|
||||
grdMitarbeiter.DataSource = dsMitarbeiter.Tables(0)
|
||||
|
||||
cmdAlleAnzeigen_Click(Nothing, Nothing)
|
||||
|
||||
'Spalten Definitionen laden
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)
|
||||
'BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdTeams)
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdFunktionsgruppen)
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(300), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.frmAdminMitarbeiter_Load: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
|
||||
Try
|
||||
If grdMitarbeiter.Splits(0).Rows.Count = 0 Then
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim mitarbeiterNr As Integer
|
||||
mitarbeiterNr = grdMitarbeiter.Columns("mitarbeiternr").Value
|
||||
|
||||
Dim mitarbeiterEditWindow As New frmAdminMitarbeiterEdit(mitarbeiterNr)
|
||||
|
||||
mitarbeiterEditWindow.MdiParent = Me.ParentForm
|
||||
mitarbeiterEditWindow.WindowState = FormWindowState.Normal
|
||||
mitarbeiterEditWindow.Show()
|
||||
|
||||
cmdAlleAnzeigen_Click(Nothing, Nothing)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdEdit_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNew.Click
|
||||
Try
|
||||
Dim mitarbeiterEditWindow As New frmAdminMitarbeiterEdit()
|
||||
|
||||
mitarbeiterEditWindow.MdiParent = Me.ParentForm
|
||||
mitarbeiterEditWindow.WindowState = FormWindowState.Normal
|
||||
mitarbeiterEditWindow.Show()
|
||||
|
||||
cmdAlleAnzeigen_Click(Nothing, Nothing)
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdNew_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdMitarbeiter_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdMitarbeiter.DoubleClick
|
||||
Try
|
||||
cmdEdit_Click(Nothing, Nothing)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdMitarbeiter_DoubleClick: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdMitarbeiter_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdMitarbeiter.RowColChange
|
||||
Try
|
||||
'nur ausführen wenn die row geändert wird
|
||||
If e.LastRow <> grdMitarbeiter.Bookmark Then
|
||||
If grdMitarbeiter.Splits(0).Rows.Count = 0 Then
|
||||
Return
|
||||
End If
|
||||
|
||||
'alle teams zu selektiertem mitarbeiter laden
|
||||
Dim itemNr As Integer
|
||||
itemNr = grdMitarbeiter.Columns("mitarbeiternr").Value
|
||||
|
||||
'gefilterte teams anzeigen
|
||||
Dim dsTeams As New DataSet()
|
||||
BusinessFacade.TeamMitarbeiter.GetListe(itemNr, dsTeams)
|
||||
grdTeams.DataSource = dsTeams.Tables(0)
|
||||
'BusinessFacade.Spalten.FillGridColumns("teammitarbeiter", grdTeams)
|
||||
|
||||
'gefilterte funktionsgruppen anzeigen
|
||||
Dim dsFunktionsGruppen As New DataSet()
|
||||
BusinessFacade.MitarbeiterFunktionsgruppe.GetListeByMitarbeiterNr(itemNr, dsFunktionsGruppen)
|
||||
grdFunktionsgruppen.DataSource = dsFunktionsGruppen.Tables(0)
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter_funktionsgruppe", grdFunktionsgruppen)
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdMitarbeiter_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdTeams_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdTeams.RowColChange
|
||||
Try
|
||||
'nur ausführen wenn die row geändert wird
|
||||
If e.LastRow <> grdTeams.Bookmark Then
|
||||
TeamSelectedChanged()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdTeams_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdFunktionsgruppen_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdFunktionsgruppen.RowColChange
|
||||
Try
|
||||
'nur ausführen wenn die row geändert wird
|
||||
If e.LastRow <> grdFunktionsgruppen.Bookmark Then
|
||||
FunktionsGruppenSelectedChanged()
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdFunktionsgruppen_RowColChange: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdTeams_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdTeams.Click
|
||||
Try
|
||||
TeamSelectedChanged()
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdTeams_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub grdFunktionsgruppen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdFunktionsgruppen.Click
|
||||
Try
|
||||
FunktionsGruppenSelectedChanged()
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.grdFunktionsgruppen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cmdAlleAnzeigen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlleAnzeigen.Click
|
||||
Try
|
||||
'wieder alle mitarbeiter anzeigen
|
||||
Dim ds As New DataSet()
|
||||
BusinessFacade.Mitarbeiter.GetListe(ds)
|
||||
grdMitarbeiter.DataSource = ds.Tables(0)
|
||||
|
||||
'Spalten Definitionen laden
|
||||
'BusinessFacade.Spalten.FillGridColumns("mitarbeiter", grdMitarbeiter)
|
||||
|
||||
grdMitarbeiter.Columns("aktiv").FilterText = "True"
|
||||
grdMitarbeiter.FilterActive = True
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(303), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmAdminMitarbeiter.cmdAlleAnzeigen_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,441 @@
|
||||
<?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="tcMenu.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="tabAllgemein.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtFunktion.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label18.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label16.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label17.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblBearbeitet.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblErstellt.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label15.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkIsActive.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtUnterschriftText.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label14.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtTelefon.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label13.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtFax.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txteMail.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label11.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtTGNummer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtAnrede.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtKurzzeichen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtNachname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtVorname.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblMitarbeiterNr.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label5.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="tabErweitert.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdCreateStandardProfil.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cboKlassifizierung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cboFuerMandant.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cboSprache.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cboMandant.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkGebMeldung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkMailDirektVersenden.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkJournalisierung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkEdokaMail.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkMailDokumentRueckgang.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkEdokaMessage.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkMailEmpfang.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="chkShowToolTip.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label21.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtMail1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label31.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtRang.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label34.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label29.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label30.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtPartnerNr.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label22.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label20.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label19.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="tabTeams.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdMATeams.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="ctxAktivSetzen.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="ctxAktivSetzen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuAktivieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuDeaktivieren.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtAnteil.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdSaveTeamMitarbeiter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblTeamName.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label27.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label26.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label25.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdTeamConnect.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdAlleTeams.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="Label24.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label3.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="tabFunktionen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="grdAlleFunktionsgruppen.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="grdMAFunktionsgruppen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images3" 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="Label23.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdZuordnenFunktionsgruppen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="Label4.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>405, 30</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AAAwCwAAAk1TRnQBSQFMAgEBBAEAAQkBAAEEAQABEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQC
|
||||
AAEoAwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB
|
||||
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//8A/wD/AP8A/wD/
|
||||
AP8A/wAZABACCP8BChD/AewBAAHsBP8GAAEDAf8IAAICDQABAgX/AQcBFAHsAfMBEgHxDP8B7AEAAv8B
|
||||
7AT/BAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMBAAECA/8BBwEUAewD/wHzARIB8Qn/AewBAAT/AQAB
|
||||
7AP/AgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgH/AQcBFAHsBv8B8wESAfEG/wHsAQAF
|
||||
/wH8Af8B7AP/AQABAwHsAQMB7AEDAewB/wEAAewGAAECAQACAwYAAgcBAAEDAQABAgFnAewC/wIHAv8C
|
||||
BwH/AfMBEgHxBP8BAAX/AfwB/wH8Af8BAAHsAv8BAAHsAQMB7AEDAewBAwH/AQAB7AYAAQIBAAIDCQAB
|
||||
AwEAAQIBZwGSAf8BBwL/AgcB8QEHAfEBBwHzARIB8QP/AewD/wH8Af8B/AL/AfwB/wHsAv8BAAEDAewB
|
||||
AwIAAewB/wEAAewGAAECAQAMAwEAAQIB/wEHAZIB/wIHAfEBBwHxAgcC8QHzARIC/wHsAQcBAAL/AfwC
|
||||
/wH8Af8B/AH/AQAB7AH/AQAB7AEDAewCBwEDAf8BAAHsAQABBgQAAQIBAAIDCAACAwEAAQIC/wEHAW0B
|
||||
EAEHAfECBwHxAQcB8QH/AfMBbQE+Af8DBwP/AfwB/wH8Av8B/AH/AewB/wEAAQMB7AEDAewBAwHsAf8C
|
||||
AAEGBf4BAgEAAQMBAAgHAQABAwEAAQIC/wGSATcBbQH/AQcB8QEHAfED/wIHAT4B/wEAAgcBAAL/AfwC
|
||||
/wH8Af8B/AH/AQAB7AEAAewBAwHsAQMB7AEDAf8BAAFtBv4BAgEAAQMBAAgHAQABAwEAAQIC/wFKAVgB
|
||||
7AGSAvEC/wGYA/8BFQL/AgACBwX/AfwC/wH8Af8B7AEAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAQIB
|
||||
AAEDAQAIBwEAAQMBAAECAf8BkgE3AewB/wEHAZIB/wG2Ac8BmAHxAuwF/wEAAQcBAAH/AwcB/wH8A/8C
|
||||
AAHsAQMB7AEDAewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQABAgH/AUoBWAEHAv8BBwGSAb0B
|
||||
8QLsBP8BAAP/AQABBwH/AgcH/wEAAQMB7AEDAewBBwH/AewBAAHsAgABbQMAAQIBAAEDAQAIBwMAAQIB
|
||||
/wEeAewE/wEHAW0B7Aj/AQAC/wIAAv8BAAHsAQcC/wEAAf8BAAHsAQMBBwH/AewBAAPsBgABAgEAAQMB
|
||||
AAgHAQABBwEAAQIC/wEHEf8BAAH/AQAB/wEAAf8BBwMAAv8BAAEHAf8B7AEABewGAAECDgABAhb/AQAE
|
||||
/wEHAQAD/xAAEAIg/wFCAU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA///AAIAAfwB
|
||||
fwYAAfABfwYAAcABfwcAAR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHxwACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="tbMenu.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdClose.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cmdSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmAdminMitarbeiterEdit</value>
|
||||
</data>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainColdFolder</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,292 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainAVQDoktype
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "AVQ_DokType", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("eintrag", "eintrag"), New System.Data.Common.DataColumnMapping("mailingproduct", "mailingproduct"), New System.Data.Common.DataColumnMapping("ordertype", "ordertype"), New System.Data.Common.DataColumnMapping("doktype", "doktype"), 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("korrigiert_am", "korrigiert_am")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_avq_doktype_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_eintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintrag", 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_doktype", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktype", 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_korrigiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "korrigiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mailingproduct", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailingproduct", 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_ordertype", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ordertype", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "workstation id=XPDEMO;packet size=4096;user id=sa;data source=XPDEMO;persist secu" & _
|
||||
"rity info=False;initial catalog=edoka"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_avq_doktype_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("@eintrag", System.Data.SqlDbType.Int, 4, "eintrag"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mailingproduct", System.Data.SqlDbType.VarChar, 50, "mailingproduct"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ordertype", System.Data.SqlDbType.VarChar, 50, "ordertype"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktype", System.Data.SqlDbType.VarChar, 50, "doktype"))
|
||||
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("@korrigiert_am", System.Data.SqlDbType.DateTime, 8, "korrigiert_am"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_avq_doktype_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_avq_doktype_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("@eintrag", System.Data.SqlDbType.Int, 4, "eintrag"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mailingproduct", System.Data.SqlDbType.VarChar, 50, "mailingproduct"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ordertype", System.Data.SqlDbType.VarChar, 50, "ordertype"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@doktype", System.Data.SqlDbType.VarChar, 50, "doktype"))
|
||||
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("@korrigiert_am", System.Data.SqlDbType.DateTime, 8, "korrigiert_am"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintrag", 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_doktype", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "doktype", 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_korrigiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "korrigiert_am", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mailingproduct", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailingproduct", 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_ordertype", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ordertype", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainColdFolder
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainAVQ_Doktype"
|
||||
Me.Text = "AVQ_Doktype"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "avq_doktype"
|
||||
Globals.MandantNr = 1
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
|
||||
Dim i As Integer
|
||||
'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen
|
||||
Try
|
||||
For i = 0 To DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "aktiv" Then
|
||||
Me.DomainList.Columns(i).Value = 1
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "mutiert_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "mutierer" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "korrigiert_am" Then
|
||||
Me.DomainList.Columns(i).Value = DBNull.Value
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
Try
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mutiert_am" Then Me.DomainList.Columns(i).Value = Now
|
||||
If Me.DomainList.Columns(i).DataField = "mutierer" Then Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
If Me.DomainList.Columns(i).DataField = "korrigiert_am" Then Me.DomainList.Columns(i).Value = DBNull.Value
|
||||
Next
|
||||
|
||||
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
||||
If Me.DomainList.Columns(0).Value Is DBNull.Value Then
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey(TableName)
|
||||
Me.DomainList.Columns(0).Value = key
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mandantnr" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MandantNr
|
||||
End If
|
||||
Next
|
||||
dbkey.Dispose()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub DomainList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DomainList.RowColChange
|
||||
If Me.DomainList.Columns(1).Value Is DBNull.Value Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = True
|
||||
End If
|
||||
If Me.DomainList.Columns(2).Value Is DBNull.Value Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = True
|
||||
End If
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
If Me.DomainList.Columns(1).Value = "" Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = True
|
||||
End If
|
||||
End Try
|
||||
Try
|
||||
If Me.DomainList.Columns(2).Value = "" Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainAnwendung</value>
|
||||
</data>
|
||||
</root>
|
||||
197
EDOKA/Backup1/Systemadministration/Domains/frmDomainAnwendung.vb
Normal file
197
EDOKA/Backup1/Systemadministration/Domains/frmDomainAnwendung.vb
Normal file
@@ -0,0 +1,197 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainAnwendung
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "anwendung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("anwendungnr", "anwendungnr"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_anwendung_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_anwendung_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("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
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_anwendung_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("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
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_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_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_anwendung_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_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_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))
|
||||
'
|
||||
'frmDomainAnwendung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainAnwendung"
|
||||
Me.Text = "cldDomainBerechtigung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "anwendung"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,180 @@
|
||||
<?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>125, 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="cmReport.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>222, 17</value>
|
||||
</data>
|
||||
<data name="cmReport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="miIport.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="miExport.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>321, 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>456, 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="$this.Name">
|
||||
<value>frmDomainAuswertungen</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,306 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainAuswertungen
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 cmReport As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents miIport As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents miExport As System.Windows.Forms.MenuItem
|
||||
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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.cmReport = New System.Windows.Forms.ContextMenu()
|
||||
Me.miIport = New System.Windows.Forms.MenuItem()
|
||||
Me.miExport = New System.Windows.Forms.MenuItem()
|
||||
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()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'cmReport
|
||||
'
|
||||
Me.cmReport.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.miIport, Me.miExport})
|
||||
'
|
||||
'miIport
|
||||
'
|
||||
Me.miIport.Index = 0
|
||||
Me.miIport.Text = "Report &Importieren"
|
||||
'
|
||||
'miExport
|
||||
'
|
||||
Me.miExport.Index = 1
|
||||
Me.miExport.Text = "Report &Exportieren"
|
||||
'
|
||||
'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("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_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, 50, 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))
|
||||
'
|
||||
'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_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, 50, "dateiname"))
|
||||
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_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_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, 50, "dateiname"))
|
||||
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, 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, 50, 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))
|
||||
'
|
||||
'frmDomainAuswertungen
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainAuswertungen"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Formular Funktionen "
|
||||
Private Sub frmDomainAuswertungen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.DomainList.ContextMenu = Me.cmReport
|
||||
|
||||
'Me.TableName = "ParameterSet"
|
||||
Me.TableName = "report"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "odbc" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
If Me.DomainList.Columns(i).DataField = "oledb" Then Me.DomainList.Columns(i).DefaultValue = True
|
||||
If Me.DomainList.Columns(i).DataField = "sqlclient" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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
|
||||
#End Region
|
||||
|
||||
#Region " Control Funktionen "
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown
|
||||
If e.Button = MouseButtons.Right Then
|
||||
Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Data Funktionen "
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Opendialog"
|
||||
Private Sub miIport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miIport.Click
|
||||
Dim iPos As Integer
|
||||
Dim sFileName As String
|
||||
Dim OpenReportFileDialog As New OpenFileDialog()
|
||||
Dim objReport As New edokadb.clsReporting_Dokumenttyp()
|
||||
Dim sReportpath As String
|
||||
|
||||
|
||||
Try
|
||||
'===============================================================================
|
||||
'Opendialog
|
||||
'===============================================================================
|
||||
sReportpath = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_reportdateien")
|
||||
If Microsoft.VisualBasic.Right(sReportpath, 1) <> "\" Then sReportpath = sReportpath & "\"
|
||||
OpenReportFileDialog.InitialDirectory = sReportpath
|
||||
OpenReportFileDialog.Filter = "REPORT files (*.rpt)|*.rpt|All files (*.*)|*.*"
|
||||
OpenReportFileDialog.FilterIndex = 1
|
||||
OpenReportFileDialog.RestoreDirectory = True
|
||||
'============Dialog & Fileprügung
|
||||
If OpenReportFileDialog.ShowDialog() = DialogResult.OK Then
|
||||
iPos = InStrRev(OpenReportFileDialog.FileName, "\")
|
||||
If iPos = 0 Then
|
||||
sFileName = OpenReportFileDialog.FileName
|
||||
Else
|
||||
sFileName = Microsoft.VisualBasic.Right(OpenReportFileDialog.FileName, Len(OpenReportFileDialog.FileName) - iPos)
|
||||
End If
|
||||
If InStr(sFileName, ".rpt") < 1 Then
|
||||
MessageBox.Show("Es sind nur Reportfile erlaubt!", "Reportfile", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
Exit Sub
|
||||
End If
|
||||
'============File in DB Speichern
|
||||
DomainList.Columns(3).Text = sFileName 'dateiname
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
objReport.Save_To_DB(DomainList.Columns("reportNr").Text, OpenReportFileDialog.FileName, "reportfile", DomainList.Bookmark)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
|
||||
|
||||
End Try
|
||||
objReport = Nothing
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub miExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miExport.Click
|
||||
Dim objReport As New edokadb.clsReporting_Dokumenttyp()
|
||||
Dim Dokument_Temp As String
|
||||
Dim i As Integer
|
||||
Dokument_Temp = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente")
|
||||
|
||||
objReport.Get_DocumentFrom_DB("reportNr", DomainList.Columns("reportNr").Text, "report", "reportfile", Dokument_Temp, DomainList.Columns(3).Value)
|
||||
|
||||
objReport = Nothing
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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>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="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>485, 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>620, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainAuswertungsgruppe</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,196 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainAuswertungsgruppe
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
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()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.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
|
||||
'
|
||||
'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"))
|
||||
'
|
||||
'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"))
|
||||
'
|
||||
'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("@Param2", 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))
|
||||
'
|
||||
'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))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=TGTSQLEDOKABSSF;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
|
||||
"=4096"
|
||||
'
|
||||
'frmDomainAuswertungsgruppe
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainAuswertungsgruppe"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "reportgruppe"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,159 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainBankinformation</value>
|
||||
</data>
|
||||
<data name="$this.Name1">
|
||||
<value>frmDomainBankinformation</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,231 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmDomainBankinformation
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_bankinformation_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_bankinformation_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("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankname", System.Data.SqlDbType.VarChar, 255, "bankname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile1", System.Data.SqlDbType.VarChar, 255, "adresszeile1"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile2", System.Data.SqlDbType.VarChar, 255, "adresszeile2"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@plz", System.Data.SqlDbType.VarChar, 255, "plz"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ort", System.Data.SqlDbType.VarChar, 255, "ort"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 255, "telefon"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefax", System.Data.SqlDbType.VarChar, 255, "telefax"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 255, "email"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@internet", System.Data.SqlDbType.VarChar, 255, "internet"))
|
||||
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_bankinformation_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("@bankinformationnr", System.Data.SqlDbType.Int, 4, "bankinformationnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bankname", System.Data.SqlDbType.VarChar, 255, "bankname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile1", System.Data.SqlDbType.VarChar, 255, "adresszeile1"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@adresszeile2", System.Data.SqlDbType.VarChar, 255, "adresszeile2"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@plz", System.Data.SqlDbType.VarChar, 255, "plz"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ort", System.Data.SqlDbType.VarChar, 255, "ort"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefon", System.Data.SqlDbType.VarChar, 255, "telefon"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@telefax", System.Data.SqlDbType.VarChar, 255, "telefax"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@email", System.Data.SqlDbType.VarChar, 255, "email"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@internet", System.Data.SqlDbType.VarChar, 255, "internet"))
|
||||
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_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.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_bankname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.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_internet", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "internet", 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_ort", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_bankinformation_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_bankinformationnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankinformationnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.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_bankname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bankname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.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_internet", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "internet", 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_ort", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ort", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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))
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'frmDomainBankinformation
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainBankinformation"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "bankinformation"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="$this.Name">
|
||||
<value>cldDomainBerechtigung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,200 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainBerechtigung
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_berechtigung_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_berechtigung_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("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
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("@sysadminfunktion", System.Data.SqlDbType.Bit, 1, "sysadminfunktion"))
|
||||
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_berechtigung_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("@berechtigungnr", System.Data.SqlDbType.Int, 4, "berechtigungnr"))
|
||||
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("@sysadminfunktion", System.Data.SqlDbType.Bit, 1, "sysadminfunktion"))
|
||||
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_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", 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_sysadminfunktion", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfunktion", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_berechtigung_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_berechtigungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "berechtigungnr", 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_sysadminfunktion", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfunktion", 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")
|
||||
'
|
||||
'cldDomainBerechtigung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "cldDomainBerechtigung"
|
||||
Me.Text = "cldDomainBerechtigung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "berechtigung"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainColdFolder</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,201 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainColdFolder
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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_foldernr", "cold_foldernr"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.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_foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr"))
|
||||
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_foldernr", System.Data.SqlDbType.Int, 4, "cold_foldernr"))
|
||||
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_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.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_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.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))
|
||||
'
|
||||
'frmDomainColdFolder
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainColdFolder"
|
||||
Me.Text = "frmDomainColdFolder"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "cold_folder"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainColdIndexFeld</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,207 @@
|
||||
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainColdIndexFeld
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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_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("durch_edoka_befuellt", "durch_edoka_befuellt"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_cold_indexfeld_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_cold_indexfeld_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("@indexfeldnr", System.Data.SqlDbType.Int, 4, "indexfeldnr"))
|
||||
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("@format", System.Data.SqlDbType.VarChar, 255, "format"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@durch_edoka_befuellt", System.Data.SqlDbType.Bit, 1, "durch_edoka_befuellt"))
|
||||
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_indexfeld_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("@indexfeldnr", System.Data.SqlDbType.Int, 4, "indexfeldnr"))
|
||||
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("@format", System.Data.SqlDbType.VarChar, 255, "format"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@durch_edoka_befuellt", System.Data.SqlDbType.Bit, 1, "durch_edoka_befuellt"))
|
||||
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_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexfeldnr", 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_durch_edoka_befuellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "durch_edoka_befuellt", 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_format", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", 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_indexfeld_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_indexfeldnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "indexfeldnr", 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_durch_edoka_befuellt", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "durch_edoka_befuellt", 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_format", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", 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))
|
||||
'
|
||||
'frmDomainColdIndexFeld
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainColdIndexFeld"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "cold_indexfeld"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
246
EDOKA/Backup1/Systemadministration/Domains/frmDomainDokumentart.Designer.vb
generated
Normal file
246
EDOKA/Backup1/Systemadministration/Domains/frmDomainDokumentart.Designer.vb
generated
Normal file
@@ -0,0 +1,246 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDomainDokumentart
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainDokumentart))
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
||||
Me.MnuSchliessen = New System.Windows.Forms.MenuItem
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.MnuNeuerKnoten = New System.Windows.Forms.MenuItem
|
||||
Me.MnuKnotenLoeschen = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
||||
Me.MnuSave = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem5 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem6 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem7 = New System.Windows.Forms.MenuItem
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
|
||||
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.Toolbtn_Schliessen = New System.Windows.Forms.ToolBar
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
|
||||
Me.SysMenu = New System.Windows.Forms.TreeView
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
Me.ImageList1.Images.SetKeyName(2, "")
|
||||
Me.ImageList1.Images.SetKeyName(3, "")
|
||||
Me.ImageList1.Images.SetKeyName(4, "")
|
||||
Me.ImageList1.Images.SetKeyName(5, "")
|
||||
Me.ImageList1.Images.SetKeyName(6, "")
|
||||
Me.ImageList1.Images.SetKeyName(7, "")
|
||||
'
|
||||
'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.MnuSchliessen})
|
||||
Me.MenuItem1.Text = "&Datei"
|
||||
'
|
||||
'MnuSchliessen
|
||||
'
|
||||
Me.MnuSchliessen.Index = 0
|
||||
Me.MnuSchliessen.Shortcut = System.Windows.Forms.Shortcut.AltF4
|
||||
Me.MnuSchliessen.Text = "&Schliessen"
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerKnoten, Me.MnuKnotenLoeschen, Me.MenuItem2, Me.MenuItem4, Me.MnuSave, Me.MenuItem3, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7})
|
||||
'
|
||||
'MnuNeuerKnoten
|
||||
'
|
||||
Me.MnuNeuerKnoten.Index = 0
|
||||
Me.MnuNeuerKnoten.Text = "Neuer Eintrag "
|
||||
'
|
||||
'MnuKnotenLoeschen
|
||||
'
|
||||
Me.MnuKnotenLoeschen.Index = 1
|
||||
Me.MnuKnotenLoeschen.Text = "Eintrag löschen"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 2
|
||||
Me.MenuItem2.Text = "Eintrag umbenennen"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 3
|
||||
Me.MenuItem4.Text = "-"
|
||||
'
|
||||
'MnuSave
|
||||
'
|
||||
Me.MnuSave.Index = 4
|
||||
Me.MnuSave.Text = "Menu Speichern"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 5
|
||||
Me.MenuItem3.Text = "-"
|
||||
'
|
||||
'MenuItem5
|
||||
'
|
||||
Me.MenuItem5.Index = 6
|
||||
Me.MenuItem5.Text = "Dokumettypen hinzufügen"
|
||||
'
|
||||
'MenuItem6
|
||||
'
|
||||
Me.MenuItem6.Index = 7
|
||||
Me.MenuItem6.Text = "-"
|
||||
'
|
||||
'MenuItem7
|
||||
'
|
||||
Me.MenuItem7.Index = 8
|
||||
Me.MenuItem7.Text = "&Symbol ändern"
|
||||
'
|
||||
'ImageList2
|
||||
'
|
||||
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
||||
Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
|
||||
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
||||
'
|
||||
'ImageList3
|
||||
'
|
||||
Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList3.Images.SetKeyName(0, "")
|
||||
Me.ImageList3.Images.SetKeyName(1, "")
|
||||
Me.ImageList3.Images.SetKeyName(2, "")
|
||||
Me.ImageList3.Images.SetKeyName(3, "")
|
||||
Me.ImageList3.Images.SetKeyName(4, "")
|
||||
Me.ImageList3.Images.SetKeyName(5, "")
|
||||
Me.ImageList3.Images.SetKeyName(6, "")
|
||||
Me.ImageList3.Images.SetKeyName(7, "")
|
||||
Me.ImageList3.Images.SetKeyName(8, "")
|
||||
Me.ImageList3.Images.SetKeyName(9, "")
|
||||
Me.ImageList3.Images.SetKeyName(10, "")
|
||||
Me.ImageList3.Images.SetKeyName(11, "")
|
||||
Me.ImageList3.Images.SetKeyName(12, "")
|
||||
Me.ImageList3.Images.SetKeyName(13, "")
|
||||
Me.ImageList3.Images.SetKeyName(14, "")
|
||||
Me.ImageList3.Images.SetKeyName(15, "")
|
||||
Me.ImageList3.Images.SetKeyName(16, "")
|
||||
Me.ImageList3.Images.SetKeyName(17, "")
|
||||
Me.ImageList3.Images.SetKeyName(18, "")
|
||||
Me.ImageList3.Images.SetKeyName(19, "")
|
||||
Me.ImageList3.Images.SetKeyName(20, "")
|
||||
Me.ImageList3.Images.SetKeyName(21, "")
|
||||
Me.ImageList3.Images.SetKeyName(22, "")
|
||||
Me.ImageList3.Images.SetKeyName(23, "")
|
||||
Me.ImageList3.Images.SetKeyName(24, "")
|
||||
Me.ImageList3.Images.SetKeyName(25, "")
|
||||
Me.ImageList3.Images.SetKeyName(26, "")
|
||||
Me.ImageList3.Images.SetKeyName(27, "")
|
||||
Me.ImageList3.Images.SetKeyName(28, "")
|
||||
Me.ImageList3.Images.SetKeyName(29, "")
|
||||
Me.ImageList3.Images.SetKeyName(30, "")
|
||||
Me.ImageList3.Images.SetKeyName(31, "")
|
||||
Me.ImageList3.Images.SetKeyName(32, "")
|
||||
Me.ImageList3.Images.SetKeyName(33, "")
|
||||
Me.ImageList3.Images.SetKeyName(34, "")
|
||||
Me.ImageList3.Images.SetKeyName(35, "")
|
||||
Me.ImageList3.Images.SetKeyName(36, "")
|
||||
Me.ImageList3.Images.SetKeyName(37, "")
|
||||
Me.ImageList3.Images.SetKeyName(38, "")
|
||||
'
|
||||
'Toolbtn_Schliessen
|
||||
'
|
||||
Me.Toolbtn_Schliessen.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
||||
Me.Toolbtn_Schliessen.ButtonSize = New System.Drawing.Size(23, 22)
|
||||
Me.Toolbtn_Schliessen.DropDownArrows = True
|
||||
Me.Toolbtn_Schliessen.ImageList = Me.ImageList1
|
||||
Me.Toolbtn_Schliessen.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.Toolbtn_Schliessen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Toolbtn_Schliessen.Name = "Toolbtn_Schliessen"
|
||||
Me.Toolbtn_Schliessen.ShowToolTips = True
|
||||
Me.Toolbtn_Schliessen.Size = New System.Drawing.Size(292, 28)
|
||||
Me.Toolbtn_Schliessen.TabIndex = 1
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
Me.ToolBarButton1.Name = "ToolBarButton1"
|
||||
'
|
||||
'SysMenu
|
||||
'
|
||||
Me.SysMenu.AllowDrop = True
|
||||
Me.SysMenu.ContextMenu = Me.ContextMenu1
|
||||
Me.SysMenu.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SysMenu.ImageIndex = 0
|
||||
Me.SysMenu.ImageList = Me.ImageList3
|
||||
Me.SysMenu.Indent = 19
|
||||
Me.SysMenu.ItemHeight = 16
|
||||
Me.SysMenu.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SysMenu.Name = "SysMenu"
|
||||
Me.SysMenu.SelectedImageIndex = 0
|
||||
Me.SysMenu.ShowRootLines = False
|
||||
Me.SysMenu.Size = New System.Drawing.Size(292, 612)
|
||||
Me.SysMenu.TabIndex = 2
|
||||
'
|
||||
'frmDomainDokumentart
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(292, 640)
|
||||
Me.Controls.Add(Me.SysMenu)
|
||||
Me.Controls.Add(Me.Toolbtn_Schliessen)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Menu = Me.MainMenu1
|
||||
Me.Name = "frmDomainDokumentart"
|
||||
Me.Text = "Dokumentart-Hierarchie"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
||||
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MnuSchliessen As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MnuNeuerKnoten As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MnuKnotenLoeschen As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MnuSave As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents Toolbtn_Schliessen As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents SysMenu As System.Windows.Forms.TreeView
|
||||
End Class
|
||||
@@ -0,0 +1,791 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>507, 30</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACa
|
||||
DQAAAk1TRnQBSQFMAgEBCAEAAQkBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAa/wIA
|
||||
AuwC/xAACgcCAAQHGP8BAALsAQAD7AH/BwAB/wEHBwAIBwEAAf8CBwHsAwcC/wEHBG0P/wEAAuwCBwIA
|
||||
AewC/wYAAv8DBwUABwcB7AH/AgcBAAEHAewCBwL/Am0C7AHtAewD/wPsARUF/wEAAuwEBwEAAewD/wUA
|
||||
A/8FBwMABgcB/wMHAewCAAEHAQABBwL/AW0B7AL/AW0B7AL/AewEbQFDAv8BAALsBgcBAAEHAQAC/wQA
|
||||
BP8DBwEEAwcBAAYHAQAB/wEHAewBAAH/AgcBAAEHAm0B7QJtAQcBbQHsAv8B7AHtBG0D7AgHAQABBwHs
|
||||
Av8DAAb/AQcDBAIHAQABBwUAAf8GAAMHBG0B7QHsAm0B7AH/AewB7QRtAQAKBwEAAewBBwEAAf8CAAX/
|
||||
AgcB7AH/AQcBBAIHAQAB7AH7AQMB+wEDAf8BAAIDAfsBAwH7AQADBwRtAe0B7AEHAW0B7QFtAewB7QRt
|
||||
AQAIBwHsAQcBAAHsAQcB7AH/AQAF/wUHAewB/wIHAQAB7AEDAfsBAwEAAewCAwH7AQMB+wEDAQADBwRt
|
||||
Ae0B7AL/AewBbQHsBAcBbQEACAcB/wEHAQAB7AEHAQAB/wEABP8B7AcHAewB/wEAAewB+wEDAfsBAAHs
|
||||
AQMB+wEDAfsBAwH7AQADBwFtBAcB7AL/AewBbQH/AewBFQFtAewBBwEACQcB/wEHAQAD/wEABP8B7AEH
|
||||
Af8B+wQHAewCAAHsAQMB+wEDAfsBAAH7AQMB+wEDAfsBAwEAAwcB7AEVAuwBFQEHAv8B7AFtAv8B7AFt
|
||||
Av8BAAcHAf8BAAIHAQAD/wEAAv8BBwL/AewB/wHsAf8B+wIHAwAB7AH7AQMB+wEDAfsBAwH7AQMB+wED
|
||||
AfsBAAMHAf8D7AEHA/8BBwHtAm0B7QFtAv8BAAUHAf8BAAQHAv8EAAHsAQcB/wH7AQcB/wIHAewB/wH7
|
||||
AwAB7AEDAfsBAwH7AQMB+wEDAfsBAwH7AQMBAAMHCf8BBwPsA/8BAAMHAf8BAAQHAv8BBwEAAv8DAAEH
|
||||
Af8B7AMHAf8CBwQAAewB+wEDAfsBAwH7AQMB+wEDAfsBAwH7AQADBxD/AQABBwH/AQAEBwL/AQcBAAT/
|
||||
BAAB+wEAAf8EBwH/BAAB7AYDBewBAAMHEP8CAAP/AQcC/wEHAQAG/wgAAf8BBwYAAQcB7AT7AQAJBxb/
|
||||
AgAI/xAAAgcE7BoHKP8BCgf/BwcBAAEHAQAD7AEAAgcl/wEHARQB7AHzARIB8QX/BwcBAAEHAQAD7AEA
|
||||
AgcR/w8AA/8BBwEUAewD/wHzARIB8QT/AQABBwQAAQcBAAEHAQAD7AEAAgcB/wEQDBQB7AL/AQANNwEA
|
||||
Af8BBwEUAewG/wHzARIB8QP/BQcDAAEHAQAD7AEAAgcB/wFKDHkB7AL/ASIMNwEwAQABZwHsAv8CBwL/
|
||||
AgcB/wHzARIB8QL/BQcCAAIHAQAB7AEHAewBAAIHAf8BAwz7AewC/wEpDDcBKQEAAWcBkgH/AQcC/wIH
|
||||
AfEBBwHxAQcB8wESAfEB/wIAAQcBAAEHAwABBwEAA+wBAAIHAf8BAwz7AewB/wEAATAMNwFKAQAB/wEH
|
||||
AZIB/wIHAfEBBwHxAgcC8QHzARIB/wQHBgAD7AEAAgcB/wEDDPsB7AH/AQANNwHsAQAC/wEHAW0BEAEH
|
||||
AfECBwHxAQcB8QH/AfMBbQE+BgcCAAEHAgAC7AEAAgcB/wEDDPsB7AH/ASIMNwEwARwBAAL/AZIBNwFt
|
||||
Af8BBwHxAQcB8QP/AgcBPgUHAwABBwEAA+wBAAIHAf8BAwz7AewB/wEpDDcBKQHDAQAC/wFKAVgB7AGS
|
||||
AvEC/wGYA/8BFQH/BgcCAAEHAgAC7AEAAgcB/wEDDPsB7AH/AgABSgHsAUoB7AFKAewBSgHsAUoB7AFK
|
||||
AewBwwEAAf8BkgE3AewB/wEHAZIB/wG2Ac8BmAHxAuwC/wkHBQACBwH/AUoHAwRYAQMBBwL/AQANwwEA
|
||||
Af8BSgFYAQcC/wEHAZIBvQHxAuwE/xAHCf8BSgIDAUoE/wEAAQcDwwHsAUoB7AFKAewBSgHsAUoB7AEA
|
||||
Af8BHgHsBP8BBwFtAewG/wgHBAQEBxL/AQABSgHsASIM/wEHDf8IBwEEAgcBBAQHMP8IBwQEBAcw/wFC
|
||||
AU0BPgcAAT4DAAEoAwABQAMAATADAAEBAQABAQUAAYABARYAA/+FAAH+Af8GAAH8AT8GAAH4AQ8GAAHw
|
||||
AQMGAAHgBwABwAcAAYAHAAGABwABgAcAAYABAQYAAYABAwYAAYABAwYAAcABBwYAAeABDwYAAf4BHwYA
|
||||
Af8Bv4IACw==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="MainMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>613, 30</value>
|
||||
</metadata>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>721, 30</value>
|
||||
</metadata>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>844, 30</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 67</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 67</value>
|
||||
</metadata>
|
||||
<data name="ImageList3.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACg
|
||||
LgAAAk1TRnQBSQFMAgEBJwEAASwBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAAaADAAEBAQABCAYAASgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/woAAfsGAAIHAQAL/wEA
|
||||
AewmAAP7BwABBwEADf8lAAj7BQAO/wUACPwWAAr7AQMEAA7/BgAC/BoADPsBAwMAAv8BAAv/CAADBxgA
|
||||
C/sBAwMAAv8BAAv/CAAEBxgACfsDAwIAAv8BAAL/AQAC/wEAAv8BAAL/CAAFBxgACPsDAwUAAv8BAAL/
|
||||
AQAC/wEAAv8IAAUHGAAG+wQAAgMDBwEAAv8BAAL/AQAC/wEAAv8IAAYHGAAE+wEAAQYC/gEGAgADBwEA
|
||||
Av8BAAL/AQAC/wEAAv8IAAQHAQQZAAT7AQABBgIAAQYCAAMHAQAC/wMAAQcCAAEHAgABBwgABAcaAAT7
|
||||
AQYB/gIGAgADBwEAAv8BAAkHCQADBxoAAvsIAAMHAQAC/wEACQcqAAEGAv4BBgIAAwcBAAL/AQAJByoA
|
||||
BAYCAAMHAQAC/wEACQcwAAQHAgAKByMAC+wiAAj/AQQH/wMACv8jAAX/AQcC7AH/AewBBwX/AwAK/xUA
|
||||
AfsBAwH7AQMB+wEDAfsBAwH7AQMB+wEDAfsBAAP/AQcC7AT/AewBBwT/AwAK/wUAAfsBAwH7AQMB+wED
|
||||
AfsBAwH7AQMB+wEDAfsDAAEDAfsBAwH7AQMB+wEDAfsBAwH7AQMB+wIAAf8BBwLsB/8B7AEHA/8DAAH/
|
||||
CAQB/wUAAQMB+wEDAfsBAwH7AQMB+wEDAfsBAwH7AwABAwH7AQMB+wEDAfsBAwH7AQMB+wEDAfsBAwIA
|
||||
AQUB7AL/AgcC/wIHAv8B7AEHAv8DAAr/BQAB+wEDAfsBAwH7AQMB+wEDAfsBAwH7AQMDAAH7AQMB+wED
|
||||
AfsBAwH7AQMB+wEDAfsBAwMAAQUB7AH/AQcC/wYHAf8B7AEHAf8DAAr/BAAB+wEDAfsBAwH7AQMB+wED
|
||||
AfsBAwH7AQMB+xAAAf8BAAH/AQcB7AH/CQcB/wHsAf8DAAH/CAQB/wQAAQMB+wEDAfsBAwH7AQMB+wED
|
||||
AfsBAwH7AQMEAAH7AQAB/wEAB/8BAAH7AQAC/wEHAewBAAcHAv8B7AEBAwAK/wQAAfsBAwH7AQMB+wED
|
||||
AfsBAwH7AQMB+wEDAQAB+wMAAf8BAAH/AQAB/wUAAf8BAAH/AQAC/wHsAQMB7AH/BAcD/wIHAQEDAAr/
|
||||
EQAB/wMAAfsBAAH/AQAH/wEAAfsBAAL/AgMC7AIHAv8BBwP/AewB/wMAAf8FBAT/BQAB+wH/AfsB/wH7
|
||||
Af8B+wH/AfsB/wH7Af8B+wMAAf8DAAH/BQAB/wEAAf8BAAH/AewBAwHsAf8BBwHsAf8BBwHsAgcC7AL/
|
||||
AwAH/wEAAf8BBwUAAf8B+wH/AfsB/wH7Af8B+wH/AfsB/wH7Af8DAAH7Af8B+wEAB/8BAAH7AQAB/wID
|
||||
AQcC/wEHAewCBwLsBP8DAAf/AQABBwYAAfsB/wH7Af8QAAH/BQAB/wMAAf8BAQHsBP8BBwLsBv8DAAf/
|
||||
HAAH/wMAAv8BBw3/MAAQ/zAAEP8EAALsAesBSwJKARMC7AHtBQAMbRMAAewMBwQAAe0CEgFRA1kBSgHq
|
||||
ARIBFAQAAa4LtQFtEwAB7Av/AQcEAAEHAfMB8gGZAZoBwwF6AbwB9AG8ARIEAAG0AfEEGQYJAW0FAALs
|
||||
AW0B7QoAAewB/wnsAf8BBwQAA7wBmQGaARsBeQEcAfABvAHvBAABtAHxBRkFCQFtBAAD9wHsAesB6gFt
|
||||
CAAB7Av/AQcIAAEaAZkBRAHrBwABtAHyAxkBCQHbASoCtAIJAW0CAAHvApIBvAHvAbUB9wGSAewBbQHq
|
||||
AesFAAHsC/8BBwcAAa0BCQG1AWYB6wcAAbQB8gH0AhkBUgEqAVgBKwEqAdwBCQFtAQAB7wGSAQcB8wLv
|
||||
AfcB7wG1Ae8CkgHsAm0DAAHsAf8J7AH/AQcGAAKtAYsCrQGLARIGAAG1AfMC9AEHAVIBWQFSAjEB7AHd
|
||||
AW0BAAHvAfQB8wHvAQcB/wEHAe8BBwIJAbUB9wGSAuwCAAHsC/8BBwUAAa0BxwGmAWsCpgKtARIFAAG1
|
||||
AfMC9AEHAnoB9wEqATEBmQHdAW0BAAIHAfcBBwH/AfEB7wH0ARkB8AK8AQkBtQHtAewCAAHsC/8BBwQA
|
||||
Aa0CxwGsAkgCxwKLAesEAAG1AfQB8gJPAVABeQGSAlIBGQHdAW0BAALvAbwB/wG8AfcB8gEZAQkCGQHx
|
||||
AfAB7wH3AwAB7AH/CewB/wEHBAABrQHHAc0BigECAUgBrAGKAUgBbAHqBAABtQH/AZ0CVgJVAUkBCQIZ
|
||||
Ad0BbQEAAe8CBwGSAe8B8QEZBAkB8QEHAfcEAAHsC/8BBwQAAa0BrAEGAnAB0wGyAQIBJwFJAWwEAAG1
|
||||
Af8BfQFWAZgBSQItAxkB3QFtAQABvAHtAZIBBwH0AfABBwHvAgcBvAL3BQAB7Av/AQcEAAHOAQYBNAFV
|
||||
AbkB1AHTAU4BAgFIAW0EAAG1Af8B9AFWAfABTwEuAbsB9AIZAd0BbQEAAa4BzwHWAbUC9wHvAfcBkgL3
|
||||
BwAB7AH/CewB/wEHBAABzgFPAVYBlwF4AdsB1AEGAQIBSAHrBAABtQL/AfQCkgGfAfQCGQEJAbQBbQIA
|
||||
Aq4DzwGuAfcKAAHsCf8D7AUAAlYBwQHCAZgBlgGyAQYBcQUAAbUH/wLUAbMBbQUAAa4BhgGuDAAB7Ar/
|
||||
AQcHAAF4AZ4BCAFWAVUBsgGzBgABtQf/AbUB2wFtFQAB7An/AQcJAAHBAZgCnQEJBwAJtQFtFgAK7A4A
|
||||
AhIFAAW6A9oDugP3AgABDAEKAmYCbQGuAWcBrgJnAQoBEgFmAW0LAAIOCwABEgElASYBAQFtBAAC9wS6
|
||||
AdoEugP3AgABjQFgAc8BDAGMAQwBjAEKAYwBhgGuAYwBrwFnAYYJAAFfAQQLAAESASUDLAEBAW0EAAGY
|
||||
A/cCugHaAroD9wKYAgABZwGGAWABYQGNAYwBrwGGAY0BhgEKAWECjAFnBwABXwEEAqEBDwgAARIBJQMs
|
||||
Ak0BAQFtBAAEmAH3AboB2gG6AfcEmAEcAgABZwHPAYwBYAGHAWEBjAFfAowBzwOMAWcFAAFfAQQCoQFg
|
||||
AT8CHgUAARIBJQMsA00B4wEBAW0EAAYcAVMHHAIAAWYBYAEKAWYBrgGNAYIBrwGMAWABZgGMAc8BYAFn
|
||||
AwABXwEEAqEBYAE/AiABIwEeAwABEgElAywDTQPjAQEBbQQABRwBdAFTAXQGHAIAAWEBzwEEAWcBCgGM
|
||||
AWcBrwGMAa8CjAFmAa8BCgEAAQ4BBAKhAWABPwIgAfkBLAIjAwABEgIsA00D4wKxAQEBbQQAAxwCdAFS
|
||||
AVMBUgJ0BBwCAAEMAc8BjAHPAowBYAGMAWABjAEKAWcBhgGvAWcBAAFfAaEBYAE/AiAB+QEsAU0BUwIj
|
||||
AwABEgNNA+MDsQHSAQEBbQQAARwDdAJSAVMCUgN0AhwCAAKMAYYBYAGMAmABrgGMAa8BjAGNAowBPgEA
|
||||
AT4BPwIgAfkBLAFNAjIBWQIjAwABEgFNA+MDsQPSAQEBbQQAA3QCUgFTCgABYAGMAWcBrgGMAmADjAFg
|
||||
AYwBhwHPAWYBAAEeASAB+QEsAU0CMgFTAV4B+wEDASMDAAESAuMDsQPSAucBjQHsBQABdANSCwABjALP
|
||||
Aa4BjAGuAWYCjAFnAa8BjAGNAQoBbQEAAQEBLAFNAjIBUwNeATcCKAMAARIDsQPSAbADjgHeAesVAAKM
|
||||
AWEBggGMAWcJAAEjAjIBUwJeASkEKAETAwABEgGxA9IB5wGOAbYD3gHrFwABjAFhAa8BZwoAASMBUwFe
|
||||
AfsBXgETBSgEAAESAtIC5wHSAbYD3gG2AeslAAEDAfsBXgE3BSgBEwUAARIC5wHSAbYB3gGNAesB7AFE
|
||||
AesmAAEDATcDKAMTBwABEgGCAY4B3gGNAesrAAETAigCEwsAAesB7AHrLgACEzgAAW0BFQITDAABEgIT
|
||||
AW0MAAEHAewcAAFtARMC1gESARMKAAESARMB1gFtAdYBEwoAAQUBAAL/BAAEEgEQEQABbQETAdYBCQHd
|
||||
ARIB0AETCAABEgETAdYBCQHWAW0B1gETCAADBQHsAv8DAAEUBd0BEA4AAW0BEwHWAQkC3QHWAW0B0AET
|
||||
BgABEgETAdYCCQHWAW0CCQETBgAFBQEHAv8CAAEUAdYBCQXWBxIBEAQAAW0BEwHWAQkD3QEJAW0B1gHQ
|
||||
ARMEAAFtARIB1gQJAdYBbQIJARUEAAQFAfsBBQEAA/8CAAESDt0BEgMAARMB1gEJBd0BbQHsAdYB0AET
|
||||
AwABbQHWBQkB1gFtAQkB3QEJARUDAAIFAfsBBQH7AgUBBwP/AgABEg7dARICAAFtAdYBCQXdAdYB7ALW
|
||||
AdABEwMAARMGCQHWAW0C3QEJARMDAAEFAfsBBQH7AwUE/wIAARIO3QESAgABEwEJA90CCQHmAW0D1gHQ
|
||||
ARMCAAETAdYFCQJtAQkC3QEJARMDAAEFAvsDBQEABP8CAAESDt0BEgEAAW0B1gPdAQkB1gFtAdAE1gHQ
|
||||
ARMCAAETBAkCbQEJBN0BCQETAgAFBQEAAf8BBwH/AQcC/wIAARIO3QESAQABEwEJAt0B1gESAdAG1gHQ
|
||||
ARMBAAFDAdYCCQJtAQkH3QETAgADBQEAAf8BBwH/AQcC/wH9AwABEg7dARIBbQHWAd0B1gESAeYJ1gET
|
||||
AQABFQEJAm0BCQjdAewDAAEFAQAB/wEHAf8BBwL/Af0FAAESDt0BEgETAdYB7AESAW0J1gETAQABFQHW
|
||||
Am0BCQndARMFAAH/AQcC/wEFBwABEg7dARIBbQEVAW0BAAHsCNYBbQIAAhUBAAFtCN0B7AETBwAB7AIF
|
||||
CAAQEAQAAewE1gESAW0B7AFtBgABQwTdAewCEgETCgABBR0AAewC1gESAW0KAAFDAt0B7AESLAABbQET
|
||||
AW0NAAFDARUUAAEQAQ8BEAMAAW0B7AdtBRICEygAARABEgHsARUBEAMAAewBbQQVBkMDEAESHAAB/wHs
|
||||
CAABEAESAuwBkgEVARADAAHsARMNAAESAQAB3QHWAd0B1gHdAdYB3QHWAd0B1gHdAdYB3QHWAWYKAAEF
|
||||
AQAC/wYAARABEwLsARMBDgGSARUBEAMAAe0BEw0AARIBAAHWBmYB3QHWAd0B1gHdAdYB3QFmCAADBQEA
|
||||
Av8EAAEQARIBkgFtARMBEgFtAQ8BkgEVARADAAHtARMNAAESAQAB3QFmAs8C3QFmAdYB3QHWAd0B1gHd
|
||||
AdYBZgYABQUBAAL/AgABEAEVARAB9wETAW0BEgEQAQ8BDgGSARUBQwMAAe0BEw0AAW0BAAHWAWYCzwLd
|
||||
AWYB3QHWAd0B1gHdAdYB3QFmBAAFBQH7AQUBAAL/AgABEAFtAUMBbQGiAhABDwEOAQABkgEVAUMDAAHt
|
||||
ARMNAAFtAQAB3QFmAs8C3QFmAdYB3QHWAd0B1gHdAdYBZgMAAgUB+wIFAfsCBQEAAv8CAAEQAW0BQwFt
|
||||
AscBZQEOAQ8BDgGSAhUDAAGSARMNAAFtAQAB1gFmAs8C3QFmAd0B1gHdAdYB3QHWAmYDAAEFAQMB7AEF
|
||||
AfsDBQEAAv8CAAEQARIBEAEVAccBpgFlAQ8BQwHsAe0CFQMAAZIBEw0AAW0BAAHdBgoB1gHdAdYB3QHW
|
||||
AWYB1gFmAwABBQEDAgUB+wMFAQAC/wIAARABEgFDAW0BxwEPARAB7AKSAewBEgETAwAB7wETDQABbQEA
|
||||
AdYB3QHWAd0B1gHdAdYB3QHWAd0B1gFmAQABzwFmAwACBQL7AwUBAAP/AgABEAETAUMBbQFDAW0B7ANt
|
||||
AuwBQwMAAe8BBwTvAvcC7QXsAW0BAAHdAdYB3QHWAd0B1gHdAdYB3QHWAWYB/wEAAdYBZgMABQUBAAP/
|
||||
Af0DAAEQAW0BFQPsAm0D7wESBAABbQHxAQcBkgHsAW0BFQFtCQAB1gHdAdYB3QHWAd0B1gHdAdYBZgMA
|
||||
AdYBZgMAAwUBAAP/Af0FAAEQAW0BFQLsBe8B9wEQBQABbQEHAZIB7AJtCgAB3QHWAd0B1gHdAdYB3QHW
|
||||
AWYC1gHPAtYBZgMAAQUBAAP/AQUHAAEQAewCbQHvAuwBEAESARMBEAcAARMBFQJtCwAPZgQAAewBBwIF
|
||||
CAABEAHsAu8BbQEQMAABBQoAARABbQEQXQANEgsAAUsQAAIfASAEAAIqASMCQwIjAkMBKgErAjIDAAHy
|
||||
CwcBEgEPCAACdAJLDQACJgElAR8BIAQAAVkBMQEQAUMBIwEqARABFQEqATEBWQErASoBegIAAfILBwEA
|
||||
AhADAAEOAwACdANLCgACJgMlAR8BIAQAAVkBMgEQARUBMQErARMBEAIyAVkBIwErAXoCAAHyAQcHAAN0
|
||||
AQACEgMAAXQBIwIAAXQFSwcAAywFJgEgBAABWQEyAUMBEwEyATEBEwFDAjIBWQEjASsBMgIAAfIBBwXP
|
||||
AQABwwF0A5oCEgIAAXoBdAIjAQACdAVLBAABMgEsASsCLAErAiwCJgEgBAABKwEyAUMBEgEyATEBEwFD
|
||||
AjIBWQEjASsBMQIAAfIBBwTPAwABKgKaAQACEgIAAnQCIwJ0BksDAAMyAiwCKwMsASUBIAQAASoBMgEV
|
||||
ARICMgExAzIBWQMrAgAB8gEHA88CAAHdAQACwwEHAxICAAFLAnQBIwFLASMBdAVLAwABOAIyATECMgEr
|
||||
BCwBIAUAAVkBFQESATEBMgEVASsCMgFZAysCAAHyAQcDzwEABN0BAAEHAxICAAF6AXQBSwEjAnQBmgH2
|
||||
BEsDAAM4ATIBMQIyATEDLAEgBQABWQESAW0BEgFZAW0BEgNZASsBMQMAAfIBBwLPAaIBzwTdAQABBwMS
|
||||
AgABSwEjAnQEmgH2A0sDAAU4ATEDMgEsAUkBIAUAASoDMQIrASoDIwErATEDAAHyAQcEzwEAA90BAAEH
|
||||
AQACEgIAAnQCmgF0BJoB9gJLAwADOAEyATEBMgEPAYoBDwGmAccIAAUrAjEBMgExASoDAAHyAQcKAAHt
|
||||
AhICAAKaAXQC/wF0ApoCAAGaAUsDAAY4AmsBigGmAa4OAAExAZoBWQQAAfIJBwEAAu0BEgQAAZoB/wH2
|
||||
AfcBEgEUAZoB9gESAQAB9gMAAXoC+wE4AQ8CcAGBAooBDw4AASsBKgUACfIBAAPtARIFAAGaA/8CmgES
|
||||
AQABFAQAAvsBDwJUAQ8jAATtARIGAAWaARQBMwEtBQAB+gEzAQ8dAAEPARASAAKaAQABMwItRgACQwES
|
||||
NQABEAEPBQABQwEjASoBIwFDAW0KAAG8CxABEgHsCQAC8QLvAQcBvAHvCQABEAESARUBbQFDBAABQwEq
|
||||
ASsBAwIjAkMBYAEVAW0B7AFlAUMCAAG8ARABEgEHARABEgEHARABEgEHARABEgEHAewCAAYOAfEB9AG8
|
||||
AvQBbQL0Ae8GAAEQARICbQETAW0BEwQAAUMBKwIqAQMCIwETAeYBxAHOAdUBzgFtAgABvAESAQcBEAES
|
||||
AQcBEAESAQcBEAESAgcB7AIAAQ4BoAQ3ARUD9AFtAfQBEwYAASMBEgGSAfcB7AFtARMBbQETBAABQwEr
|
||||
ASoBNwIDASMBEwFgAaIBZQHOAccBbQIAAbwB7AEQARIBBwEQARIBBwEQARIBBwEQAQcB7AIAAQ4BoAU3
|
||||
AvQB8QEHARMBNwQAASMBMQErARUBEwEVAW0B7AEVAW0BFQQAAUMBKwEjATcCAwEqARMBxAGiAdUBzgHI
|
||||
AewCAAG8ARABEgEHARABEgEHARABEgEHARABEgEHAewCAAEOAaAENwFeAQcB9AHxARMCNwIAARABKgEr
|
||||
ASMBKwFtAewBkgHxAfcBFQFtARUEAAFDASsBIwExAgMBKgETAcQB5gEJAc4B1QFtAgABvAESAQcBEAET
|
||||
AQcBEAESAQcBEAESAgcB7AIAAQ4BoAU3ASsC9AETAjcCAAEpASsBKgExASoB9wHxAfQB7wHsARUBbQET
|
||||
BAABQwErASMBUwIDASoBFQHIAWAB5gHHAc4BbQIAAbwB7AEQARMBBwEQARMBBwEQARIBBwEQAQcB7AIA
|
||||
AQ4BoAM3ASMCKgL0ARMBNwFeAgABKQEjAisB8QHyAe8BkgLsARUBbQETBAABQwHsASMBMQIDASoBQwES
|
||||
AhMBbQJDAgABvAEQARMBBwEQARMBBwEQARIBBwEQARIBBwHsAgABDgGgBDcBWQExAvQBEwE3AV4CAAEq
|
||||
AXoBwwFZAQcB7wHsAW0B7QHsARMBbQETBAABQwGSASMCKwUDASkFAAG8ARIBBwEQARMBBwEQARIBBwEQ
|
||||
ARICBwFtAgABDgGgBTcD9AETAjcCAAEDAcMBvAFeAW0B7AHtAZIBEgFtASMCEwQAAUMBegEjAioBMQEr
|
||||
AwMBKQYAAf8K9AHvARMCAAEOAb0BRwEgAw4B9AEAAfQBEwIOAgAB7QFeASsBMQErAZIBbQIjASoCKwEq
|
||||
BAABQwETAYoBEwEjASoBKwExASsBAwEpBwABvAHsBgAE7AIAAQ4BoAH7ATcBDgIAA/QBHwQAAe0BMgIx
|
||||
ASoBAwEpASoBKwMxASMFAAFDAYoCZQETAVkBKgErATEBIwkAAQ4CKAIvARIOAAGUAiAB+QMAATABWQEx
|
||||
AVkBKwEqASsEMQEqAQ4FAAEQAWsBigJlARAB7AFZASoBEAkAAQ4BKAHDAX0BNgHtDwABFwEfBAAB7QF6
|
||||
Ae8BKgErAVMCKwEyAVMBKwEjBwABQwEQAWsBEwIQAkMLAAIHApIBDhUAARIBKQEjATEBKwEQAQ4BAAIj
|
||||
AQ4JAANDKgABDgEjARABDgwAAQ4DAAEyAQABMQIqATIGAAqaASMFAAqaASMVAAP/Ae8BdQF6ATEBKwEx
|
||||
ATcBQwNIAgAKmgEjASsEAAqaASMBKwsAAdUBzgcAAQ4DAAEyAUMDMgExBEgCAAGaAd0HCQGaASMCKwMA
|
||||
AZoBwwEQBqwBmgEjAisIAAFTAtUDzgoAAk4HSAIAAZoB3QHyBfQBCQGaASMDKwIAAZoBwwEQAawBZQL7
|
||||
AWUBrAGaASMDKwUAAdUCUwLVA84JAAJOAUgBVAdIAQABmgHdAfIF9AEJAZoBIwMrAgABmgHDARoCrAP7
|
||||
AawBmgEjAysEAALVAlMC1QHOAccBzgHHBwABTgEPAUgBVAFOB0gBAAGaAd0B8gX0AQkBmgEjAysCAAGa
|
||||
AcMBGgKsAfsBIAH7AawBmgEjAysEAALVAlMC1QHOAc0B1QHHAc4FAAJOAUgBVAFOCEgBAAGaAd0GFQEJ
|
||||
AZoBIwMrAgABmgHDARoCrAH7ASAB+wGsAZoBIwMrAgAB3QHWAtUCUwLVAc4BzQPVBQABTgFIAVQBTgFI
|
||||
AXYFcAFIAgABmgHdBhUB3QGaASMDKwIAAZoBwwEaAqwB+wEgAfsBrAGaASMDKwQAAtUBmgHWAtUDzgHH
|
||||
BgABSAFUAU4BSAF2AnABDwNwAwABmgjdAZoBIwEqAisCAAGaAcMBGgOsAWUCrAGaASMBKgIrBAAG1QPO
|
||||
BwABVAFOAUgBdgJwAUgB7wJwBAAKmgIjAVMBKgIACpoCIwFTASoEAATVAc4B1gHVAc0BzgcAAU4BSAF2
|
||||
AnABFQEPAbwBcAUACpoBIwJ6AVMCAAqaASMCegFTBAAC1QHOBdYB1QcAAUgBdgNwARUBvAFwBgAKGgR6
|
||||
AVMBAAoaBHoBUwMAAc4F1gHVCQABdgZwBwABegsjAnoCAAF6CyMCegUAAdUC1gHVGQACegEACiMDAAJ6
|
||||
AQAKIw8AASAUAAF6AgAKmgMAAXoCAAqahwABRAEVLgADQwwAAUQBbgFEAhUMAAF0AXoBdA0AATIBmgFZ
|
||||
DAABQwFuAkQCQwkAAUQBSgFvBRUIAAN0AXoCbgF0CQABMgJZAZoCbQEyCQABQwFLAXMDQwEiARABQwYA
|
||||
AUQBSgFLAXQBFQFEARUBQwIRARUEAAV0AXoBbgL3AW4BdAUAATIEWQGaAW0B9wHtAW0BWQYAAkMBSwFu
|
||||
AhABDwEiARABDwFDBAACRAFKAUsBbwEVAW8BdAFLARUBDwEVAwAGdAF6AW4D9wN0AgAGWQGaAW0D9wJZ
|
||||
ATIDAANEAUsBcwMPARABDwIOBAABRAJKA0sDdAFvAUsBRAMABnQBegF0AW4B9wEgA3QCAAZZARoBWQFt
|
||||
AewBIANZAwABQwJEAUsBcwIPAhABDwEOBQAERAERAUQBSwN0AW8BTAFLARUBAAZ0Af8DdAFuAiABdAIA
|
||||
BVkBegH/AXoCWQFtAiABWQMAAUMBRAFKAUsBcwFEAxABDwIOBAABRAFKAUsBFQFDARECQwFKAUsBdAFv
|
||||
AUsBFQEABHQBwwF6AcMBegHDBXQCAARZAZoBMQErAVkBwwF6BFkDAAEQAkQBSwN0AUsCDwIOBAABSgFL
|
||||
AUQDFQJDARUBRAJKARUCAAJ0AcMDegHDA3oBwwN0AgACWQGaBDEDegHDAXoCWQMAAUMCRAFKAUsBdAFL
|
||||
AUQBSwJEAQ4DAAFEAUoDRAQVAUoDbwFLAgABwwV6B8MBdAIAARoGMQJ6A5oBwwF6AwABQwFEAW4BSwJK
|
||||
ARADSwFEAUMCAAlEAUsFdAFLAQAGdAHDBnoDAAEaBjEBegWaBAABQwFKAW4BSwFEAksBRAFDAkQEAAFE
|
||||
BEoCRAFKAW8FdAFEAwADegF0BXoHAAEaBDEEmgcAAUQBDwFEASIBRAFLAkQFAAFEAksBSgFLA0oBSwF0
|
||||
AZMDdAFEBgABegF0A3oLAAGaAjECmgsAAkoCRAgAAkQFSwEVAXQBmQJ0CgABeg8AAZocAAFEAksBRAIA
|
||||
AnREAAFCAU0BPgcAAT4DAAEoAwABQAMAAaADAAEBAQABAQYAAQUWAAP/AQAB/gEfAgAC/wIAAfgBDwIA
|
||||
AfABDwIAAeABBwIAAfABDwIAAYABAwIAAfgBHwMAAQMCAAH4AR8CAAHAAQECAAH4AQ8CAAHgAQECAAH4
|
||||
AQ8CAAHgAwAB8AEPAgAB8AMAAfABAwIAAfABAQIAAfABBwIAAfgBAQIAAfABDwIAAfgBAwIAAfABBwIA
|
||||
AfwBZwIAAfgBBwIAAf0BwwIAAfwBDwIAAf8BwwIAAv8CAAH/AecCAAL/AgAB4AEDBP8CAAHAAQMC/wHA
|
||||
AwABwAEDAYABAAGAAwABwAEDAYABAAGAAwABwAEDAYAFAAHAAQMBgAUAAcABAwYAAcABAwIAAYADAAHA
|
||||
AQMCAAGAAwABwAEDAgABgAMAAcABAwGAAQABgAMAAcABBwGAAQABgAMAAcABDwGAAQABwAMAAcABHwHD
|
||||
Af8B+AEDAgAE/wH4AQMCAAb/AgAB8AEDAeABAQL/AcABAQHgAQMBwAEBAv8BwAEBAeABAwHAAQEB8AH/
|
||||
AcABAQHgAQMBwAEBAeABPwHAAQEB/gEfAcABAQGAAQcBwAEBAfwBHwHAAQEBAAEBAcABAQH4AQ8BwAEB
|
||||
AgABwAEBAfABBwHAAQECAAHAAQEB4AEDAcABAQEAAQEBwAEBAeABAwHAAQEBAAEDAcABAQHgAQMBwAEB
|
||||
AQABBwHAAQEB4AEDAcABAQEAAR8BwAEBAeABAwHAAQEBgAH/AcABAQHwAQcBwAEDAeMB/wHAAQMB+AEP
|
||||
AcABBwL/AcABBwH8AR8BwAEPAv8BwAEPAf8BzwGAAQABgAEAAf8BxwH/AQcBgAEAAYABAAH/AQcB/AEH
|
||||
AYABAAGAAQAB/AEHAfABBwGAAQABgAEAAfABBwHAAQcBgAEAAYABAAHAAQcBAAEHAYABAAGAAQABgAEH
|
||||
AQABBwGAAQABgAEAAYABBwEAAQcBgAEAAYABAAGAAQcBAAEHAYABAAGAAQABgAEHAQABBwHDAf8BgAEA
|
||||
AYABBwEAAQcB5wH/AcAB/wGAAQcBAAEPAv8B4QH/AYABDwEAAQ8E/wGAAR8BAAEfBP8BgAF/AQMF/wGD
|
||||
Af8BjwX/Ac8G/wHwAf8B8AH/AeMD/wHAAf8BwAH/AYEBwQL/AQAB/wEAAf4BAQGAAf8B/AEAAfwBAAH4
|
||||
AQECAAHwAQAB8AEAAeABAQIAAeABAAHgAQAB4AEBAgABwAEAAeABAAHAAQECAAHAAQABwAEAAcABAQIA
|
||||
AYABAAHAAQABwAEBAgABgAEAAYABAAGAAQMEAAGAAQEBgAEPAwABAQEAAQEB4AE/AgABEAEDASABAwH4
|
||||
AX8CAAHwAQcB4AEPAfgD/wHwAX8B4AX/AfEB/wHzAv8BxwIABf8BBwQAAf8B4wH8AQcBPwH+AgAB/wGB
|
||||
AfABBwE/Af4CAAH+AQEBwAEHAT8B/gIAAfgBAQEAAQcBPwH+AgAB4AEBAQABBwE/Af4CAAHgAQEBAAEH
|
||||
AT8B/gIAAeABAQEAAQcBPwH+AgAB4AEBAQABBwE/Af4CAAHgAQEBAAEHBAAB4AEDAQABDwEAAf8CAAHg
|
||||
AQ8BAAEPAYEB/wIAAeABPwEAAR8BwwH/AgAB8AF/AQMF/wH4Af8Bjwj/AecB4AEHAQABAQH/AT8B/wGH
|
||||
AYABAQIAAf4BHwH+AQcBAAEBAgAB7gEPAfgBBwEAAQECAAHGAQcB4AEHAYABAQIAAYIBAwGAAQcBgAEB
|
||||
AgABgAEBAYABBwGAAQECAAGAAQEBgAEHAYABAQIAAYABAQGAAQcBgAEBAgABgAEBAYABBwHAAQECAAGA
|
||||
AQEBgAEHAcABAwIAAYABAQGAAQ8B/wGDAgABwAEBAYABDwH/AccBAAEBAeABBwGBAT8C/wEAAQEB8AED
|
||||
AYcD/wGAAQEB+AEHAd8D/wHAAQ8B/QHfAccB/wHAAQMB/wGDAf8BhwGBAf8BgAEBAf4BAQH+AQMBgAEB
|
||||
AYABAAGAAQAB+AEDAYABAQGAAQABgAECAeABAwGAAQEBgAEAAYABAwGAAQMBgAEBAYABAAGAAQMBAAED
|
||||
AYABAQGAAQABgAEDAQABAwGAAQEBgAEAAYABAwEAAQMBgAEBAYABAAGAAQMBAAEDAYABDwGAAQABgAED
|
||||
AQABAwGAAQ8BgAEAAYABAwEAAQMBgAEPAcABAQGDAQcBAAEHAcABDwH4AR8B/wEDAQABBwHAAQ8B+AEf
|
||||
Af8BjwEAAQ8B4AEfAfwBHwH/Ad8BAQEfAfEF/wGHAf8BmAEfAQABDwEAAQ8C/wGAAgABBwEAAQcB/gEf
|
||||
AZgCAAEDAQABAwH4AQcB+AIAAQEBAAEBAeABBwHwAgABAQEAAQEB4AEHAeACAAEBAQABAQHAAQEB4AIA
|
||||
AQEBAAEBAYABAQHgAQEBAAEBAQABAQGgAQMB4AEDAQABAQEAAQEB4AEDAeABBwEAAQEBAAEBAeABAwHA
|
||||
AQ8BAAEBAQABAQHgAQMBwAEfBAAB4AEbAcABPwEAAQEBAAEBAeABewL/AQABAwEAAQMB+QHxAv8BkAEB
|
||||
AZABAQH/AfsC/wHYAQAB2AEACP8B/AH/Af4B/wH+Af8B/AF/AfgBPwH4AT8B+AE/AfgBHwHwAQ8B4AEP
|
||||
AeABDwHwAQcB4AEDAYABAwGAAQMB4AEDAcABAwEAAQEBAAEBAcABAwHAAQMBAAEBAQABAQHAAQMBwAIA
|
||||
AQEBAAEBAcABAwHAAgABAQEAAQEBwAEDAcABAQEAAQEBAAEBAcABAwGAAQEBAAEBAQABAQHAAQMDAAEB
|
||||
AQABAQHAAQcBgAEAAcABBwHAAQcB4AEfAQABAQHwAR8B8AEfAfgBfwGAAQcB/AF/AfwBfwL/AfABzwj/
|
||||
Cw==
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA
|
||||
IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8
|
||||
fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4
|
||||
eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n
|
||||
pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a
|
||||
WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys
|
||||
rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe
|
||||
ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE
|
||||
gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt
|
||||
qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ
|
||||
jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l
|
||||
mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b
|
||||
iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs
|
||||
ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w
|
||||
owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp
|
||||
lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak
|
||||
jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2
|
||||
pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc
|
||||
XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVPX9+FXx7wAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7+/17u++w3ZKd0t6Ve8AAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAMesk3ZJ+5Po2UhISEhIee8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAC3rKh1QkJCeYXOwEJCQkJChe8A7+/08e8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKzR10JCQkJCdqPi
|
||||
skJCQkJCgfW2w6RFTPfvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJLn3INBQUFBQYPhmkFBQUFBQ3nQsmdB
|
||||
QXj77QAAAAAAAAAAAAAAAAAAAAAAAAAAAKzq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+QAAAAAAAAAA
|
||||
AAAAAAAAAAAAAKzs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eAAAAAAAAAAAAAAAAAAAAAAArKyi
|
||||
Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7wAAAAAAAAAAAAAAAAAAAACswslkOjpluslkOjo6Ojo6
|
||||
Ojo6Ojo6Ojo6Ojo6OjqA7wAAAAAAAAAAAAAAAAAAAACs4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3
|
||||
Nzd4AAAAAAAAAAAAAAAAAAAAAIbSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7wDv7/IAAAAA
|
||||
AAAAAAAAAKvMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1AAAAAAAAAAAAAMXOynIw
|
||||
MDAwMDAwMDAwMEoAAAAArdDLoXIwMDAwMDAwczAwMDL97wAAAAAAAAAAAAC148hyLS0tLS0tLS1yUAAA
|
||||
AAAAAACp5d2QLS0tLS0tLS0tLS1G9QAAAAAAAAAAAAAAs+PIcSsrKysrKytPAAAAAAAAAAAAndLeoSsr
|
||||
KysrKysrKysu+wAAAAAAAAAAAAAAANXMvyoqKioqKkAAAAAAAAAAAAAAAJ3S3ZAqKioqKioqKioqegAA
|
||||
AAAAAAAAAAAAU5zjoCgoKCgoYVIAAAAAAAAAAAAAAACd5dliKCgoKCgoKChiAAAAAAAAAAAAxus7OX5h
|
||||
YScnJycnOAAAAAAAAAAAAAAAAAAAxOCnJycnJycnJzIAAAAAAAAAAAAAztclJSUlJSUlJSUleQAAAAAA
|
||||
AAAAAAAAAAAAgOfcfiUlJSUlYwAAAAAAAAAAAACR5LkiIiIiIiIiIiIi9gAAAAAAAAAAAAAAAAAAANXh
|
||||
mSIiIiIiRO4AAAAAAAAAAACR46AgICAgICAgICBe8wAAAAAAAAAAAAAAAAAAAKrO1yAgICAgL/727AAA
|
||||
AAAAAACR46AeHh4eHh4eHh4m9AAAAAAAAAAAAAAAAAAAAJXS3H0eHh4eHiMvTPz0AAAAAACR5NcdHR0d
|
||||
HR0dHR0m9wAAAAAAAAAAAAAAAAAAAADp3oQdHR0dHR0dHR/7AAAAAACk5tyEbxwcHBwcHBwf+wAAAAAA
|
||||
AAAAAAAAAAAAAADq34ocHBwcHBwcHBz7AAAAAAAApaXBzLGMbxoaGhoaTgAAAAAAAAAAAAAAAAAAAADq
|
||||
y4oaGhoaGhoaGhr7AAAAAAAAAAAApbPgnxkZGRkZRPAAAAAAAAAAAAAAAAAAAADq3ooZGRkZGRkZGRn6
|
||||
AAAAAAAAAAAAAKTksBYWFhYWX/gAAAAAAAAAAAAAAAAAAADp23AWFhYWFhYWFhbyAAAAAAAAAAAAU6un
|
||||
XBUVFRUVFVHsAAAAAAAAAAAAAAAAAADn2V0VFRUVFRUVXWAAAAAAAAAAAAC+448UFBQUFBQUFCH4AAAA
|
||||
AAAAAAAAAAAAAKvjmBQUFBQUY9YAAAAAAAAAAAAAAKXNixISEhISEhISEhJM9AAAAAAAAAAAAAAAANDb
|
||||
fBISEhISNvMAAAAAAAAAAAAAperflhEREREREREREREXUfEAAAAAAAAAAAAAnOSYERERERERG/7tAAAA
|
||||
AAAAAAAAAKPjvxMPDw8PDw8PDw8PG1HyAAAAAAAAAAClz6dbDw8PDw8PDyH97QAAAAAAAAAAAJXS24IN
|
||||
DQ0NDQ0NDQ0NDRhO+AAAAAAAALe7p1oNDQ0NDQ0NDQ0h/QAAAAAAAAAAAAC8zLgMDAwMbWwMDAwMDAwM
|
||||
KU779e7seqSLDgwMDAwMDAwMDAwMIQAAAAAAAAAAAACU0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL
|
||||
CwsLCwsLCwsLPQAAAAAAAAAAAAAA0tIjAACl0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVAAA
|
||||
AAAAAAAAAAAAAAAAAACszrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkvAAAAAAAAAAAAAAAAAAAA
|
||||
AAC14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRcAAAAAAAAAAAAAAAAAAAAAAKXT3WoHBwcHBwcH
|
||||
BwcHBwcHBwcHBwcHBwc2eq6urgAAAAAAAAAAAAAAAAAAAAAAAJLOuAYGBgYGBleIVwYGBgYGBgYGBgYG
|
||||
BgYh+AAAAAAAAAAAAAAAAAAAAAAAAAAAAKPkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTgAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAArujdiFYsAKPkuAMDAwMDENTMpgMDAwMDbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHe9vb0AAJLl
|
||||
1wICAgICJIHT3ocCAmhuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/n2GgCAgICKYGdztlu
|
||||
bgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/T24doAQEBgQAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACvr6+vr6+vAAAAAAAAAAAAAAAAAAAAAAAAAAD///wH//8AAP//
|
||||
AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/
|
||||
AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A
|
||||
P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD
|
||||
AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA
|
||||
B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/
|
||||
AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP//
|
||||
8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s
|
||||
bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN
|
||||
jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx
|
||||
cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG
|
||||
hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y
|
||||
lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u
|
||||
rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n
|
||||
ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E
|
||||
xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn
|
||||
ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa
|
||||
lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5
|
||||
dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k
|
||||
YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/
|
||||
ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf
|
||||
jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l
|
||||
kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p
|
||||
lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR
|
||||
jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAA8/P49vMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPN8+fPKrnS8efMAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPO8s5WmzdSUbm619fPzAAAAAAAAAAAAAAAAAAAAAAAA3KNra5PcyGprb3B5vJZ1+gAA
|
||||
AAAAAAAAAAAAAAAAANflohxnG7S0G2drkN20G6JyfQAAAAAAAAAAAAAAAAB7qu64Z2NjY2NjY2OSopFj
|
||||
Y2SlAAAAAAAAAAAAAAAA3pNp3MgZX19fX19fX18aGl9fYa8AAAAAAAAAAAAAAOOyGBmPjlxcXFwYGBkY
|
||||
XFxcXFxp9gAAAAAAAAAAAAC62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+AAAAAAAAAM/Zm1ZTU1NTU1dz
|
||||
AADJ1LicU1NTV41UUXH4AAAAAAAAAM7Ym05MTExStwAAAAAA0NihTkxMTE5MkH0AAAAAAAAAAODTS0lJ
|
||||
SpYAAAAAAAAA5NibSUlJSUlLeAAAAAAAAK8BubiLSEhPgAAAAAAAAAAA6MBGSEhISGIAAAAAAAAAxUYW
|
||||
FkRERGAAAAAAAAAAAADQ7KAWRERegAAAAAAAANvAQkJCQkJCcQAAAAAAAAAAAADmuxVCQmb79QAAAAAA
|
||||
1btBQUFBQUF1AAAAAAAAAAAAANbTFEFBiU1lfQAAAADOxYdAQEBAQG0AAAAAAAAAAAAAuuKIQEBAQED+
|
||||
AAAAAAAAzMCoPT4+W/YAAAAAAAAAAAC22Zo+Pj4+Pv0AAAAAAAAA19OaOTpD+wAAAAAAAAAAAMHiPDo6
|
||||
OhIT+AAAAAAAALfLiTs7Oz929AAAAAAAAAAA3744OziGiqAAAAAAAAAAx4YPNjY2NkX99AAAAAAAAADv
|
||||
pxA2DqTxAAAAAAAAAOjEMDIyMjIyN1X89AAAAAAArsUzMjIwR3/yAAAAAAAAuuyZDSoNKi4uL1V/9wAA
|
||||
AMLGmSouLi4qR/wAAAAAAAAA560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbAAAAAAAAADk5OTk8L8nJiYm
|
||||
KSwtMSsLCyYmJgoLJTF3AAAAAAAAAAAAAOTqsAkkJCQkJCQjIyQkJAmfXZgjUAAAAAAAAAAAAAAA5Nqe
|
||||
CCIiCAgiIiIiCCIiIEPRXV0AAAAAAAAAAAAAAADP0oMHISGrniEhISGEISEhEXoAAAAAAAAAAAAAAAAA
|
||||
AOTmsR8DQ+29BgYEntKXAwYepAAAAAAAAAAAAAAAAAAAAOTkv4wA68OCBR018L0FBTVdAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAADg0oECAlq35qxdAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOTpsbGtAAAAAAAAAAAAAAAA
|
||||
AAD//B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af
|
||||
+AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I
|
||||
AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU
|
||||
lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF
|
||||
hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq
|
||||
qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO
|
||||
TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl
|
||||
ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
ADVDNAAAAAAAAAAAAAAtQCIBGT0sQTgAAAAAAAAPAR8MAQ0WAQY7AAAAAAA5EAEBAQEBAQEIRDw5AAAF
|
||||
Cw0BAQEgAQEBAwgEMAAAAQEBASkAAAAAAQEBASoAACQBASUAAAAAAAABASE+Nx4OAQQ6AAAAAAAACQEN
|
||||
E0MBAQERPwAAAAAAAB4BAQEzHh4BAkUyAAAAAAABAREmAAAjAQEcQjMAAAAnAQEVMQAAAQEBARovQi4Y
|
||||
AQEBASgAABceDwEBAQEBAQEHGwEAAAAAABIBAQEBAQEBCjYAAAAAAAAXAR4dARQrAQEAAAAAAAAAAAAA
|
||||
FwEBAAAAAAAAAP4/ALrwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4AAAB+AAzwPhVlOBwVNTgAEAAIAD
|
||||
uJzgB1NX4A9Rcfx/AAAoAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA
|
||||
AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU
|
||||
FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K
|
||||
yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk
|
||||
kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay
|
||||
svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v
|
||||
L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E
|
||||
xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n
|
||||
lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em
|
||||
kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au
|
||||
rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA
|
||||
AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/
|
||||
v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc
|
||||
VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9
|
||||
vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA
|
||||
AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7
|
||||
u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7
|
||||
u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4
|
||||
uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4
|
||||
uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2
|
||||
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2
|
||||
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA
|
||||
AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0
|
||||
tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq
|
||||
nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej
|
||||
o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei
|
||||
jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA
|
||||
AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew
|
||||
rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU
|
||||
VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w
|
||||
sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u
|
||||
rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej
|
||||
lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r
|
||||
q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC
|
||||
QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg
|
||||
kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p
|
||||
qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi
|
||||
Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n
|
||||
p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t
|
||||
m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui
|
||||
m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA
|
||||
AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1
|
||||
cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g
|
||||
oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA
|
||||
AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e
|
||||
nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e
|
||||
nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c
|
||||
nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c
|
||||
nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u
|
||||
nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em
|
||||
kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA
|
||||
AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO
|
||||
DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA
|
||||
ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW
|
||||
lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW
|
||||
lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic
|
||||
iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT
|
||||
k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2
|
||||
NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR
|
||||
kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA
|
||||
AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ
|
||||
iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM
|
||||
jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO
|
||||
TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK
|
||||
iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA
|
||||
AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I
|
||||
iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I
|
||||
iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk
|
||||
j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA
|
||||
AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG
|
||||
hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD
|
||||
g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD
|
||||
g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB
|
||||
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB
|
||||
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy
|
||||
oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/
|
||||
f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT
|
||||
E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8
|
||||
fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8
|
||||
fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6
|
||||
ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v
|
||||
nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913
|
||||
d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913
|
||||
d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1
|
||||
df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1
|
||||
df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd
|
||||
if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz
|
||||
c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw
|
||||
cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY
|
||||
hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP
|
||||
T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA
|
||||
AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr
|
||||
a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t
|
||||
m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A
|
||||
QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm
|
||||
k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/
|
||||
AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA
|
||||
AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP
|
||||
AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA
|
||||
H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD
|
||||
AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g
|
||||
AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA
|
||||
AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA
|
||||
AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K
|
||||
yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E
|
||||
xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3
|
||||
rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A
|
||||
wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA
|
||||
AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq
|
||||
mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq
|
||||
KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6
|
||||
u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5
|
||||
uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my
|
||||
r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1
|
||||
tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd
|
||||
kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r
|
||||
nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA
|
||||
AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA
|
||||
AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA
|
||||
AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA
|
||||
ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA
|
||||
AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE
|
||||
hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf
|
||||
X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l
|
||||
pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h
|
||||
of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h
|
||||
ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e
|
||||
nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj
|
||||
lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud
|
||||
mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z
|
||||
j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA
|
||||
ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA
|
||||
ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR
|
||||
jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf
|
||||
X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR
|
||||
TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK
|
||||
iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK
|
||||
iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G
|
||||
hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G
|
||||
hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX
|
||||
if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG
|
||||
g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC
|
||||
gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7
|
||||
e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992
|
||||
d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1
|
||||
df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx
|
||||
cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA
|
||||
ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS
|
||||
in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo
|
||||
aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+
|
||||
dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL
|
||||
TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA
|
||||
AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH
|
||||
8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA
|
||||
AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA
|
||||
AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ
|
||||
SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV
|
||||
leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA
|
||||
AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX
|
||||
l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ
|
||||
mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA
|
||||
ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA
|
||||
AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D
|
||||
g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ
|
||||
mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ
|
||||
mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt
|
||||
bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk
|
||||
ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ
|
||||
mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ
|
||||
mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU
|
||||
lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA
|
||||
AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA
|
||||
mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,297 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Public Class frmDomainDokumentart
|
||||
Const CtrlMask As Byte = 8
|
||||
Dim todelete(50) As Integer
|
||||
Dim itodelete As Integer
|
||||
Dim ssort As Integer
|
||||
Dim eintrag As String
|
||||
Dim dokumentart As New edokadb.clsMyDokumentart()
|
||||
Dim m_ToSelect As Boolean
|
||||
Dim m_TransferKey As Integer
|
||||
Dim m_ShowLevel As Integer
|
||||
|
||||
#Region "Properties"
|
||||
Property ToSelect() As Boolean
|
||||
Get
|
||||
Return m_ToSelect
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_ToSelect = Value
|
||||
End Set
|
||||
End Property
|
||||
Property Transferkey()
|
||||
Get
|
||||
Return m_TransferKey
|
||||
End Get
|
||||
Set(ByVal Value)
|
||||
m_TransferKey = Value
|
||||
End Set
|
||||
End Property
|
||||
Property showlevel() As Integer
|
||||
Get
|
||||
Return m_ShowLevel
|
||||
End Get
|
||||
Set(ByVal Value As Integer)
|
||||
m_ShowLevel = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub MnuSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSchliessen.Click
|
||||
Toolbtn_Schliessen_ButtonClick(sender, e)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Toolbtn_Schliessen_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbtn_Schliessen.ButtonClick
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub FrmSysadminMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.SysMenu.ContextMenu = Me.ContextMenu1
|
||||
Me.SysMenu.ImageList = Globals.DokumentartenImages
|
||||
If ToSelect Then
|
||||
dokumentart.LoadTreeMenu(SysMenu, Me.showlevel)
|
||||
Me.SysMenu.ContextMenu = Nothing
|
||||
Me.AllowDrop = False
|
||||
Else
|
||||
dokumentart.LoadTreeMenu(SysMenu, 0)
|
||||
End If
|
||||
SysMenu.ExpandAll()
|
||||
itodelete = 0
|
||||
End Sub
|
||||
|
||||
Private Sub MnuNeuerKnoten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerKnoten.Click
|
||||
Dim a As String
|
||||
Dim tn As New TreeNode()
|
||||
Dim tnnew As New TreeNode()
|
||||
a = InputBox(Globals.MyMsg.Get_Meldungstext(500))
|
||||
If a = "" Then Exit Sub
|
||||
tn = Me.SysMenu.SelectedNode
|
||||
tnnew = tn.Nodes.Add(a)
|
||||
With tnnew
|
||||
.Tag() = 0
|
||||
.ImageIndex() = 1
|
||||
.SelectedImageIndex() = 2
|
||||
End With
|
||||
If tn.ImageIndex <> 5 And tn.ImageIndex <> 6 Then
|
||||
tn.ImageIndex = 1
|
||||
tn.SelectedImageIndex = 2
|
||||
End If
|
||||
If tn.GetNodeCount(True) > 0 Then
|
||||
If tn.ImageIndex <> 5 And tn.ImageIndex <> 6 Then
|
||||
tn.ImageIndex = 1
|
||||
tn.SelectedImageIndex = 2
|
||||
End If
|
||||
End If
|
||||
Me.SysMenu.Refresh()
|
||||
End Sub
|
||||
|
||||
Private Sub MnuKnotenLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuKnotenLoeschen.Click
|
||||
Dim tn As New TreeNode()
|
||||
Dim tnp As New TreeNode()
|
||||
Dim i As Integer
|
||||
tn = Me.SysMenu.SelectedNode
|
||||
tnp = tn.Parent
|
||||
If tn.ImageIndex = 5 Or tn.ImageIndex = 6 Then
|
||||
MyMsg.show_standardmessage(5, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End If
|
||||
If Not (Me.SysMenu.SelectedNode Is Nothing) Then
|
||||
itodelete = itodelete + 1
|
||||
todelete(itodelete) = tn.Tag
|
||||
If Globals.MyMsg.Show_MessageYesNo(3) = MsgBoxResult.Yes Then
|
||||
tn.Remove()
|
||||
End If
|
||||
If tnp.GetNodeCount(True) = 0 Then
|
||||
If tnp.ImageIndex <> 5 And tnp.ImageIndex <> 6 Then
|
||||
tnp.ImageIndex = 1
|
||||
tnp.SelectedImageIndex = 2
|
||||
End If
|
||||
End If
|
||||
Me.SysMenu.Refresh()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Drag and Drop innerhalb des Systemmenus
|
||||
Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragDrop
|
||||
Dim OriginationNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
||||
If OriginationNode.ImageIndex = 5 Or OriginationNode.ImageIndex = 6 Then
|
||||
MyMsg.show_standardmessage(6, MsgBoxStyle.Critical)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
|
||||
Dim pt As Point
|
||||
Dim DestinationNode As TreeNode
|
||||
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
|
||||
DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
|
||||
DestinationNode.Nodes.Add(CType(OriginationNode.Clone, TreeNode))
|
||||
DestinationNode.Expand()
|
||||
If (e.KeyState And CtrlMask) <> CtrlMask Then
|
||||
OriginationNode.Remove()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragEnter
|
||||
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
||||
If (e.KeyState And CtrlMask) = CtrlMask Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
Else
|
||||
e.Effect = DragDropEffects.Move
|
||||
End If
|
||||
Else
|
||||
e.Effect = DragDropEffects.None
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles SysMenu.ItemDrag
|
||||
If e.Button = MouseButtons.Left Then
|
||||
DoDragDrop(e.Item, DragDropEffects.Move Or DragDropEffects.Copy)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSave.Click
|
||||
Dim i As Integer
|
||||
conn.OpenConnection()
|
||||
ListNodeCollectionRecursive(Me.SysMenu.Nodes(0), 0)
|
||||
i = conn.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Private Sub ListNodeCollectionRecursive(ByVal tnParent As TreeNode, ByRef iSort As Integer)
|
||||
Dim tn As TreeNode
|
||||
If tnParent.GetNodeCount(False) > 0 Then
|
||||
tn = tnParent.Nodes(0)
|
||||
Else
|
||||
tn = Nothing
|
||||
End If
|
||||
ssort = 0
|
||||
Do Until tn Is Nothing
|
||||
iSort = iSort + 1
|
||||
ListNodeSave(tn, iSort)
|
||||
If tn.GetNodeCount(False) > 0 Then
|
||||
Call ListNodeCollectionRecursive(tn, iSort)
|
||||
End If
|
||||
tn = tn.NextNode
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim t As DataTable
|
||||
Dim key As Long
|
||||
Dim i As Integer
|
||||
Dim dokumentart As New edokadb.clsMyDokumentart()
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
dokumentart.cpMainConnectionProvider = conn
|
||||
|
||||
If tn.Tag <> 0 Then
|
||||
dokumentart.iDokumentartnr = New SqlInt32(CType(tn.Tag, Int32))
|
||||
dokumentart.SelectOne()
|
||||
End If
|
||||
|
||||
dokumentart.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
dokumentart.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
||||
dokumentart.sBezeichnung = New SqlString(CType(tn.Text, String))
|
||||
dokumentart.sBeschreibung = New SqlString(CType("", String))
|
||||
dokumentart.iParentid = New SqlInt32(CType(tn.Parent.Tag, Int32))
|
||||
dokumentart.iImageindex = New SqlInt32(CType(tn.ImageIndex, Int32))
|
||||
dokumentart.iImageindexopen = New SqlInt32(CType(tn.SelectedImageIndex, Int32))
|
||||
dokumentart.iSort = New SqlInt32(CType(isort, Int32))
|
||||
dokumentart.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
dokumentart.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||
dokumentart.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
|
||||
dokumentart.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
||||
If tn.Tag <> 0 Then
|
||||
dokumentart.iDokumentartnr = New SqlInt32(CType(tn.Tag, Int32))
|
||||
dokumentart.Update()
|
||||
Else
|
||||
key = dbkey.get_dbkey("dokumentart")
|
||||
conn.OpenConnection()
|
||||
dokumentart.iDokumentartnr = New SqlInt32(CType(key, Int32))
|
||||
dokumentart.Insert()
|
||||
tn.Tag = key
|
||||
End If
|
||||
|
||||
For i = 1 To itodelete
|
||||
dokumentart.iDokumentartnr = New SqlInt32(CType(todelete(i), Int32))
|
||||
t = dokumentart.SelectOne
|
||||
If t.Rows.Count > 0 Then
|
||||
dokumentart.Delete()
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Dim a As String
|
||||
a = InputBox("Neuer Name:")
|
||||
If a = "" Then Exit Sub
|
||||
Me.SysMenu.SelectedNode.Text = a
|
||||
End Sub
|
||||
|
||||
Private Sub TreeView_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysMenu.DoubleClick
|
||||
If ToSelect Then
|
||||
Me.Transferkey = Me.SysMenu.SelectedNode.Tag
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
||||
Dim s As String
|
||||
Dim split
|
||||
Me.OpenFileDialog1.ShowDialog()
|
||||
If Me.OpenFileDialog1.FileName = "" Then Exit Sub
|
||||
FileOpen(1, Me.OpenFileDialog1.FileName, OpenMode.Input)
|
||||
Do While Not EOF(1)
|
||||
s = LineInput(1)
|
||||
insert_dokumenttyp(s)
|
||||
Loop
|
||||
FileClose(1)
|
||||
conn.CloseConnection(True)
|
||||
End Sub
|
||||
Private Sub insert_dokumenttyp(ByVal s As String)
|
||||
Dim splits
|
||||
Dim dt As New edokadb.clsDokumenttyp()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
|
||||
dt.cpMainConnectionProvider = conn
|
||||
conn.OpenConnection()
|
||||
dt.iDokumenttypnr = New SqlInt32(CType(13, Int32))
|
||||
dt.SelectOne()
|
||||
|
||||
splits = Split(s, " ")
|
||||
dt.iOffice_vorlagenr = New SqlInt32(CType(2, Int32))
|
||||
dt.bHostdokument = New SqlBoolean(CType(True, Boolean))
|
||||
dt.sHostdokumenttyp = New SqlString(CType(splits(1), String))
|
||||
dt.sBezeichnung = New SqlString(CType(splits(2) + " " + splits(3), String))
|
||||
dt.iDokumentart_host = New SqlInt32(CType(splits(0), Int32))
|
||||
dt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
dt.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||
dt.iMutierer = New SqlInt32(CType(-1, Int32))
|
||||
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("dokumenttyp")
|
||||
conn.OpenConnection()
|
||||
dt.iDokumenttypnr = New SqlInt32(CType(key, Int32))
|
||||
dt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||
dt.Insert()
|
||||
conn.CloseConnection(True)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
|
||||
Dim f As New frmIconSelector()
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Me.SysMenu.SelectedNode.SelectedImageIndex = f.SelectedImage
|
||||
Me.SysMenu.SelectedNode.ImageIndex = f.SelectedImage
|
||||
End If
|
||||
f.Dispose()
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,168 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainDokumentartDaten</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,225 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainDokumentartDaten
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "dokumentart", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumentartnr", "dokumentartnr"), 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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_dokumentart_daten_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_dokumentartnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", 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_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_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_imageindex", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "imageindex", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.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_parentid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "parentid", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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))
|
||||
'
|
||||
'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_dokumentart_daten_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("@dokumentartnr", System.Data.SqlDbType.Int, 4, "dokumentartnr"))
|
||||
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("@parentid", System.Data.SqlDbType.Int, 4, "parentid"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.Int, 4, "sort"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@imageindex", System.Data.SqlDbType.Int, 4, "imageindex"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@imageindexopen", System.Data.SqlDbType.Int, 4, "imageindexopen"))
|
||||
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("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
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_dokumentart_daten_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_dokumentart_daten_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("@dokumentartnr", System.Data.SqlDbType.Int, 4, "dokumentartnr"))
|
||||
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("@parentid", System.Data.SqlDbType.Int, 4, "parentid"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.Int, 4, "sort"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@imageindex", System.Data.SqlDbType.Int, 4, "imageindex"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@imageindexopen", System.Data.SqlDbType.Int, 4, "imageindexopen"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
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("@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_dokumentartnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", 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_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_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_imageindex", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "imageindex", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.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_parentid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "parentid", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainDokumentartDaten
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainDokumentartDaten"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "dokumentart"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub HandleDbl(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
||||
Dim f As New frmIconSelector()
|
||||
f.ShowDialog()
|
||||
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Me.DomainList.Columns("imageindex").Value = f.SelectedImage
|
||||
Me.DomainList.Columns("imageindexopen").Value = f.SelectedImage
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,207 @@
|
||||
<?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>129, 15</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, 17</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>17, 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>169, 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>716, 17</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="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 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="MnuNeuerDokumenttyp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="mnuKopie.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuDokumenttypAendern.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem6.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem7.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem8.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem9.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem10.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="MenuItem12.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainDokumenttyp</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,593 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainDokumenttyp
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MnuNeuerDokumenttyp As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuDokumenttypAendern As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents mnuKopie As System.Windows.Forms.MenuItem
|
||||
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 MenuItem5 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
|
||||
<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.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.MnuNeuerDokumenttyp = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
Me.mnuKopie = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuDokumenttypAendern = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem8 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem10 = New System.Windows.Forms.MenuItem()
|
||||
Me.MenuItem12 = New System.Windows.Forms.MenuItem()
|
||||
CType(Me.DataSet1, 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", "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("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")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_dokumenttyp_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_dokumenttypnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumenttypnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.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_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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.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_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.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_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.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_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_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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka_tkb;persist security info=False;user id=sa;" & _
|
||||
"workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_dokumenttyp_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
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("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
||||
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("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[sp_dokumenttyp_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_dokumenttyp_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("@dokumenttypnr", System.Data.SqlDbType.Int, 4, "dokumenttypnr"))
|
||||
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("@zu_vercolden", System.Data.SqlDbType.Bit, 1, "zu_vercolden"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@zu_retournieren", System.Data.SqlDbType.Bit, 1, "zu_retournieren"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingang_ersetzt_ausgang", System.Data.SqlDbType.Bit, 1, "eingang_ersetzt_ausgang"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_importiert", System.Data.SqlDbType.Bit, 1, "wird_importiert"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@anzahl_tage", System.Data.SqlDbType.Int, 4, "anzahl_tage"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dbearbeitungszeit", System.Data.SqlDbType.Int, 4, "dbearbeitungszeit"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tage_mutation", System.Data.SqlDbType.Int, 4, "tage_mutation"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@partnersaldierung_statusalt", System.Data.SqlDbType.Bit, 1, "partnersaldierung_statusalt"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@wird_nicht_geloescht", System.Data.SqlDbType.Bit, 1, "wird_nicht_geloescht"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrauliches_dokument", System.Data.SqlDbType.Bit, 1, "vertrauliches_dokument"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_links", System.Data.SqlDbType.Bit, 1, "unterschrift_links"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@unterschrift_rechts", System.Data.SqlDbType.Bit, 1, "unterschrift_rechts"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@monate_bis_zur_archivierung", System.Data.SqlDbType.Int, 4, "monate_bis_zur_archivierung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_elektronisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_elektronisch"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aufbewahrungsfrist_physisch", System.Data.SqlDbType.Int, 4, "aufbewahrungsfrist_physisch"))
|
||||
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("@office_vorlagenr", System.Data.SqlDbType.Int, 4, "office_vorlagenr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_kundendossier", System.Data.SqlDbType.Int, 4, "dokumentart_kundendossier"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_neuerstellung", System.Data.SqlDbType.Int, 4, "dokumentart_neuerstellung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_retournierung", System.Data.SqlDbType.Int, 4, "dokumentart_retournierung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldausgang", System.Data.SqlDbType.Int, 4, "dokumentart_coldausgang"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_coldeingang", System.Data.SqlDbType.Int, 4, "dokumentart_coldeingang"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_host", System.Data.SqlDbType.Int, 4, "dokumentart_host"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentart_weitere", System.Data.SqlDbType.Int, 4, "dokumentart_weitere"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@prozessnr1", System.Data.SqlDbType.Int, 4, "prozessnr1"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@amsdokument", System.Data.SqlDbType.Bit, 1, "amsdokument"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokument", System.Data.SqlDbType.Bit, 1, "hostdokument"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@hostdokumenttyp", System.Data.SqlDbType.VarChar, 50, "hostdokumenttyp"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@cold_folder", System.Data.SqlDbType.Int, 4, "cold_folder"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@physisches_archiv", System.Data.SqlDbType.Int, 4, "physisches_archiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentstatus", System.Data.SqlDbType.Int, 4, "dokumentstatus"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_erstellt", System.Data.SqlDbType.Bit, 1, "Dokument_wird_erstellt"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokument_wird_retourniert", System.Data.SqlDbType.Bit, 1, "Dokument_wird_retourniert"))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.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_amsdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "amsdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.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_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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.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_hostdokument", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "hostdokument", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.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_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.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_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_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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerDokumenttyp, Me.MenuItem4, Me.mnuKopie, Me.MenuDokumenttypAendern, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7, Me.MenuItem8, Me.MenuItem9, Me.MenuItem10, Me.MenuItem12})
|
||||
'
|
||||
'MnuNeuerDokumenttyp
|
||||
'
|
||||
Me.MnuNeuerDokumenttyp.Index = 0
|
||||
Me.MnuNeuerDokumenttyp.Shortcut = System.Windows.Forms.Shortcut.CtrlN
|
||||
Me.MnuNeuerDokumenttyp.Text = "&Neuer Dokumenttyp erfassen"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 1
|
||||
Me.MenuItem4.Text = "-"
|
||||
'
|
||||
'mnuKopie
|
||||
'
|
||||
Me.mnuKopie.Index = 2
|
||||
Me.mnuKopie.Text = "Kopie erstellen"
|
||||
'
|
||||
'MenuDokumenttypAendern
|
||||
'
|
||||
Me.MenuDokumenttypAendern.Index = 3
|
||||
Me.MenuDokumenttypAendern.Shortcut = System.Windows.Forms.Shortcut.CtrlF2
|
||||
Me.MenuDokumenttypAendern.Text = "&Dokumenttyp ändern"
|
||||
'
|
||||
'MenuItem5
|
||||
'
|
||||
Me.MenuItem5.Index = 4
|
||||
Me.MenuItem5.Text = "-"
|
||||
'
|
||||
'MenuItem6
|
||||
'
|
||||
Me.MenuItem6.Index = 5
|
||||
Me.MenuItem6.Text = "Dokumenttyp-Auswertung"
|
||||
'
|
||||
'MenuItem7
|
||||
'
|
||||
Me.MenuItem7.Index = 6
|
||||
Me.MenuItem7.Text = "Dokumenttyp-Vorlagenfelder-Auswertung"
|
||||
'
|
||||
'MenuItem8
|
||||
'
|
||||
Me.MenuItem8.Index = 7
|
||||
Me.MenuItem8.Text = "-"
|
||||
'
|
||||
'MenuItem9
|
||||
'
|
||||
Me.MenuItem9.Index = 8
|
||||
Me.MenuItem9.Text = "Erstellung Leerdokument zulassen"
|
||||
Me.MenuItem9.Visible = False
|
||||
'
|
||||
'MenuItem10
|
||||
'
|
||||
Me.MenuItem10.Index = 9
|
||||
Me.MenuItem10.Text = "Erstellung Leerdokument verhindern"
|
||||
Me.MenuItem10.Visible = False
|
||||
'
|
||||
'MenuItem12
|
||||
'
|
||||
Me.MenuItem12.Index = 10
|
||||
Me.MenuItem12.Text = "Dokumenttyp-Beschreibung"
|
||||
Me.MenuItem12.Visible = False
|
||||
'
|
||||
'frmDomainDokumenttyp
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(800, 465)
|
||||
Me.Name = "frmDomainDokumenttyp"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Windows.Forms.Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableName = "dokumenttyp"
|
||||
Dim btn As New ToolBarButton()
|
||||
btn.ImageIndex = 3
|
||||
Me.ToolBar1.Buttons.Add(btn)
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
Me.DomainList.AllowAddNew = False
|
||||
Me.DomainList.AllowUpdate = False
|
||||
load_data()
|
||||
Windows.Forms.Cursor.Current = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Public Sub load_data()
|
||||
Try
|
||||
Me.DataSet1.Clear()
|
||||
Windows.Forms.Cursor.Current = Cursors.WaitCursor
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
Windows.Forms.Cursor.Current = Cursors.Default
|
||||
Me.SqlConnection1.Close()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
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 2
|
||||
Domainlist_dblclick(sender, e)
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub MnuNeuerDokumenttyp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerDokumenttyp.Click
|
||||
Dim frm As New frmDomainDokumenttypDetail()
|
||||
frm.NeuerEintrag = True
|
||||
frm.ShowDialog()
|
||||
load_data()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuDokumenttypAendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDokumenttypAendern.Click
|
||||
If Not Me.Is_SysadminBerechtigt Then
|
||||
MyMsg.show_standardmessage(245, MsgBoxStyle.Information)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim book As New VariantType()
|
||||
Dim frm As New frmDomainDokumenttypDetail()
|
||||
Try
|
||||
frm.NeuerEintrag = False
|
||||
frm.DokumentTypkey = Me.DomainList.Columns(0).Value
|
||||
book = Me.DomainList.Bookmark
|
||||
frm.ShowDialog()
|
||||
load_data()
|
||||
Me.DomainList.Bookmark = book
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Domainlist_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
||||
If ToSelect Then
|
||||
Me.TransferKey = Me.DomainList.Columns(0).Value
|
||||
Me.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
MenuDokumenttypAendern_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub mnuKopie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuKopie.Click
|
||||
If MyMsg.Show_MessageYesNo(11) = MsgBoxResult.Yes Then
|
||||
Dim doktyp As New edokadb.clsDokumenttyp()
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey("dokumenttyp")
|
||||
dbkey.Dispose()
|
||||
|
||||
doktyp.cpMainConnectionProvider = conn
|
||||
doktyp.iDokumenttypnr = New SqlInt32(CType(Me.DomainList.Columns(0).Text, Int32))
|
||||
doktyp.SelectOne()
|
||||
doktyp.iDokumenttypnr = New SqlInt32(CType(key, Int32))
|
||||
doktyp.sBezeichnung = New SqlString(CType(doktyp.sBezeichnung.Value + " (Kopie)", String))
|
||||
conn.OpenConnection()
|
||||
doktyp.Insert()
|
||||
doktyp.Dispose()
|
||||
conn.CloseConnection(True)
|
||||
|
||||
|
||||
Dim iErrorcode As Integer
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_dokumenttyp_insert_copy]"
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns(0).Value))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, key))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, key))
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iErrorcode))
|
||||
Try
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Catch ex As Exception
|
||||
Throw New Exception("sp_vorlagenfeld_standard_insert:Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Connection.Close()
|
||||
scmCmdToExecute.Dispose()
|
||||
End Try
|
||||
load_data()
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Splits(0).Rows.Count - 1
|
||||
If key = Me.DomainList.Columns(0).CellValue(i) Then
|
||||
Me.DomainList.Bookmark = key
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
|
||||
Dim f As New frmReporting()
|
||||
f.show_report_dokumenttyp(Me.DomainList.Columns(0).Value)
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
|
||||
Dim ww As New WordLib()
|
||||
ww.Create_Dokument(Me.DomainList.Columns(0).Value, True)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
|
||||
DivFnkt.leererstellung(1, Me.DomainList.Columns(0).Text)
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
|
||||
DivFnkt.leererstellung(2, Me.DomainList.Columns(0).Text)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
|
||||
Dim f As New frmDokumenttypbeschreibung()
|
||||
f.key = Me.DomainList.Columns(0).Text
|
||||
f.ShowDialog()
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
||||
If DivFnkt.leererstellung(3, Me.DomainList.Columns(0).Text) Then
|
||||
Me.MenuItem9.Enabled = False
|
||||
Me.MenuItem10.Enabled = True
|
||||
Else
|
||||
Me.MenuItem9.Enabled = True
|
||||
Me.MenuItem10.Enabled = False
|
||||
End If
|
||||
If Not Is_SysadminBerechtigt() Then
|
||||
Me.mnuKopie.Enabled = False
|
||||
Me.MenuDokumenttypAendern.Enabled = False
|
||||
Else
|
||||
Me.mnuKopie.Enabled = True
|
||||
Me.MenuDokumenttypAendern.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function Is_SysadminBerechtigt() As Boolean
|
||||
Dim dty As New edokadb.clsDokumenttyp()
|
||||
Dim dt As DataTable
|
||||
dty.cpMainConnectionProvider = conn
|
||||
dty.iDokumenttypnr = New SqlInt32(CType(Me.DomainList.Columns("dokumenttypnr").Value, Int32))
|
||||
dt = dty.SelectOne()
|
||||
If dty.iOwner.Value <> Globals.MitarbeiterNr And Not DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
|
||||
If DivFnkt.Check_Sysadmin_Stellvertreter(dty.iOwner.Value) = True Then
|
||||
dt.Dispose()
|
||||
dty.Dispose()
|
||||
Return True
|
||||
Else
|
||||
dt.Dispose()
|
||||
dty.Dispose()
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
dt.Dispose()
|
||||
dty.Dispose()
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
241
EDOKA/Backup1/Systemadministration/Domains/frmDomainEditor.resx
Normal file
241
EDOKA/Backup1/Systemadministration/Domains/frmDomainEditor.resx
Normal file
@@ -0,0 +1,241 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MainMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>125, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAk
|
||||
CwAAAk1TRnQBSQFMAgEBBAEAASwBAAEsAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8AFQAQAgj/
|
||||
AQoQ/wHsAQAB7AT/BgABAwH/CAACAg0AAQIF/wEHARQB7AHzARIB8Qz/AewBAAL/AewE/wQAAewBAwHs
|
||||
Af8IAAECAQACAwYAAgcBAAEDAQABAgP/AQcBFAHsA/8B8wESAfEJ/wHsAQAE/wEAAewD/wIAAQMB7AED
|
||||
AewBAwH/CAABAgEAAgMGAAIHAQABAwEAAQIB/wEHARQB7Ab/AfMBEgHxBv8B7AEABf8B/AH/AewD/wEA
|
||||
AQMB7AEDAewBAwHsAf8BAAHsBgABAgEAAgMGAAIHAQABAwEAAQIBZwHsAv8CBwL/AgcB/wHzARIB8QT/
|
||||
AQAF/wH8Af8B/AH/AQAB7AL/AQAB7AEDAewBAwHsAQMB/wEAAewGAAECAQACAwkAAQMBAAECAWcBkgH/
|
||||
AQcC/wIHAfEBBwHxAQcB8wESAfED/wHsA/8B/AH/AfwC/wH8Af8B7AL/AQABAwHsAQMCAAHsAf8BAAHs
|
||||
BgABAgEADAMBAAECAf8BBwGSAf8CBwHxAQcB8QIHAvEB8wESAv8B7AEHAQAC/wH8Av8B/AH/AfwB/wEA
|
||||
AewB/wEAAewBAwHsAgcBAwH/AQAB7AEAAQYEAAECAQACAwgAAgMBAAECAv8BBwFtARABBwHxAgcB8QEH
|
||||
AfEB/wHzAW0BPgH/AwcD/wH8Af8B/AL/AfwB/wHsAf8BAAEDAewBAwHsAQMB7AH/AgABBgX+AQIBAAED
|
||||
AQAIBwEAAQMBAAECAv8BkgE3AW0B/wEHAfEBBwHxA/8CBwE+Af8BAAIHAQAC/wH8Av8B/AH/AfwB/wEA
|
||||
AewBAAHsAQMB7AEDAewBAwH/AQABbQb+AQIBAAEDAQAIBwEAAQMBAAECAv8BSgFYAewBkgLxAv8BmAP/
|
||||
ARUC/wIAAgcF/wH8Av8B/AH/AewBAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQECAQABAwEACAcBAAED
|
||||
AQABAgH/AZIBNwHsAf8BBwGSAf8BtgHPAZgB8QLsBf8BAAEHAQAB/wMHAf8B/AP/AgAB7AEDAewBAwHs
|
||||
AQMB/wEAAewBAAJtAwABAgEAAQMBAAgHAQABAwEAAQIB/wFKAVgBBwL/AQcBkgG9AfEC7AT/AQAD/wEA
|
||||
AQcB/wIHB/8BAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0DAAECAQABAwEACAcDAAECAf8BHgHsBP8BBwFt
|
||||
AewI/wEAAv8CAAL/AQAB7AEHAv8BAAH/AQAB7AEDAQcB/wHsAQAD7AYAAQIBAAEDAQAIBwEAAQcBAAEC
|
||||
Av8BBxH/AQAB/wEAAf8BAAH/AQcDAAL/AQABBwH/AewBAAXsBgABAg4AAQIW/wEABP8BBwEAA/8QABAC
|
||||
IP8BQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/4EAAfwBfwYAAfABfwYAAcABfwcA
|
||||
AR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHwYACw==
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="DomainList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="DomainList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="DomainList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style15{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{Wrap:True;BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>331</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 588, 331</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 590, 331</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAEBAQAAAAAAAoAQAAJgAAACAgEAAAAAAA6AIAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAMAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
|
||||
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAH//j/j/jwAAf/+P+P+PAAB4iIiIiIgAAH93h3h3
|
||||
jwAAf3eHeHePAAB4iIiIiIgAAH93h3h3jwAAf3eHeHePAAB4iIiIiIgAAH93h3h3jwAAf3eHeHePAAB4
|
||||
iIiIgAAAAHu7u7u39wAAe7u7u7dwAAB3d3d3dwAAwAEAAMABAADAAQAAwAEAAMABAADAAQAAwAEAAMAB
|
||||
AADAAQAAwAEAAMABAADAAQAAwAEAAMADAADABwAAwA8AACgAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD/
|
||||
/wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAAAAAHiIiIiIiIiIiIiIiIAAAAB/////j///j/
|
||||
//j/+AAAAAf////4///4///4//gAAAAH////+P//+P//+P/4AAAAB/////j///j///j/+AAAAAf////4
|
||||
///4///4//gAAAAHiIiIiIiIiIiIiIiIAAAAB/94eHh4eHh4eHj/+AAAAAf/h4eIh4eIh4eI//gAAAAH
|
||||
/3h4eHh4eHh4eP/4AAAAB/+Hh4iHh4iHh4j/+AAAAAf/eHh4eHh4eHh4//gAAAAHiIiIiIiIiIiIiIiI
|
||||
AAAAB/94eHh4eHh4eHj/+AAAAAf/h4eIh4eIh4eI//gAAAAH/3h4eHh4eHh4eP/4AAAAB/+Hh4iHh4iH
|
||||
h4j/+AAAAAf/eHh4eHh4eHh4//gAAAAHiIiIiIiIiIiIiIiIAAAAB/94eHh4eHh4eHj/+AAAAAf/h4eI
|
||||
h4eIh4eI//gAAAAH/3h4eHh4eHh4eP/4AAAAB/+Hh4iHh4iHh4j/+AAAAAf/eHh4eHh4eHh4//gAAAAH
|
||||
iIiIiIiIiIiIcAAAAAAAB/////j///j//3/4cAAAAAf////4///4//9/hwAAAAAH////+P//+P//eHAA
|
||||
AAAAB/////j///j//3cAAAAAAAf////4///4//9wAAAAAAAHd3d3d3d3d3d3cAAAAADgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AA
|
||||
AAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAAfgAAAH4AAAB+AAAA/gAAAf4AAAP+AAAH/gAAD/4AAB/w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
449
EDOKA/Backup1/Systemadministration/Domains/frmDomainEditor.vb
Normal file
449
EDOKA/Backup1/Systemadministration/Domains/frmDomainEditor.vb
Normal file
@@ -0,0 +1,449 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainEditor
|
||||
Inherits System.Windows.Forms.Form
|
||||
Dim m_TableName As String
|
||||
Dim m_Eintragnr As Long
|
||||
Dim m_Inaktive As Boolean
|
||||
Dim m_Eintrag As String
|
||||
Dim selectedrow As Integer
|
||||
Dim m_TransferKey As Long
|
||||
Dim m_ToSelect As Boolean
|
||||
Dim Ttip As New ToolTip()
|
||||
Dim wp As New WindowPositions()
|
||||
|
||||
|
||||
#Region "Properties"
|
||||
Property Eintragnr() As Long
|
||||
Get
|
||||
Return m_Eintragnr
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_Eintragnr = Value
|
||||
End Set
|
||||
End Property
|
||||
Property TableName() As String
|
||||
Get
|
||||
Return m_TableName
|
||||
End Get
|
||||
Set(ByVal Value As String)
|
||||
m_TableName = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Inaktive() As Boolean
|
||||
Get
|
||||
Return m_Inaktive
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_Inaktive = 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 TransferKey() As Long
|
||||
Get
|
||||
Return m_TransferKey
|
||||
End Get
|
||||
Set(ByVal Value As Long)
|
||||
m_TransferKey = Value
|
||||
End Set
|
||||
End Property
|
||||
Property ToSelect() As Boolean
|
||||
Get
|
||||
Return m_ToSelect
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_ToSelect = Value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_Maximize As Boolean = True
|
||||
Property FormMaximize() As Boolean
|
||||
Get
|
||||
Return m_Maximize
|
||||
End Get
|
||||
Set(ByVal Value As Boolean)
|
||||
m_Maximize = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#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 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
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBtnSave As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents DomainList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainEditor))
|
||||
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
|
||||
Me.MenuItem1 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem3 = New System.Windows.Forms.MenuItem
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar
|
||||
Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton
|
||||
Me.ToolBtnSave = New System.Windows.Forms.ToolBarButton
|
||||
Me.DomainList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'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.MenuItem2, Me.MenuItem3})
|
||||
Me.MenuItem1.MergeOrder = 1
|
||||
Me.MenuItem1.MergeType = System.Windows.Forms.MenuMerge.Replace
|
||||
Me.MenuItem1.Text = "&Datei"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 0
|
||||
Me.MenuItem2.MergeOrder = 1
|
||||
Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.AltF4
|
||||
Me.MenuItem2.Text = "&Schliessen"
|
||||
'
|
||||
'MenuItem3
|
||||
'
|
||||
Me.MenuItem3.Index = 1
|
||||
Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.CtrlF5
|
||||
Me.MenuItem3.Text = "&Daten sichern"
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
Me.ImageList1.Images.SetKeyName(2, "")
|
||||
Me.ImageList1.Images.SetKeyName(3, "")
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBtnSave})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(592, 28)
|
||||
Me.ToolBar1.TabIndex = 2
|
||||
'
|
||||
'ToolBtnExit
|
||||
'
|
||||
Me.ToolBtnExit.ImageIndex = 0
|
||||
Me.ToolBtnExit.Name = "ToolBtnExit"
|
||||
'
|
||||
'ToolBtnSave
|
||||
'
|
||||
Me.ToolBtnSave.ImageIndex = 1
|
||||
Me.ToolBtnSave.Name = "ToolBtnSave"
|
||||
'
|
||||
'DomainList
|
||||
'
|
||||
Me.DomainList.AllowAddNew = True
|
||||
Me.DomainList.AlternatingRows = True
|
||||
Me.DomainList.BackColor = System.Drawing.Color.Gray
|
||||
Me.DomainList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.DomainList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DomainList.FilterBar = True
|
||||
Me.DomainList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DomainList.Images.Add(CType(resources.GetObject("DomainList.Images"), System.Drawing.Image))
|
||||
Me.DomainList.Location = New System.Drawing.Point(0, 28)
|
||||
Me.DomainList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.DomainList.Name = "DomainList"
|
||||
Me.DomainList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DomainList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DomainList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DomainList.PrintInfo.PageSettings = CType(resources.GetObject("DomainList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DomainList.Size = New System.Drawing.Size(592, 333)
|
||||
Me.DomainList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.DomainList.TabIndex = 7
|
||||
Me.DomainList.Text = "C1TrueDBGrid1"
|
||||
Me.DomainList.PropBag = resources.GetString("DomainList.PropBag")
|
||||
'
|
||||
'frmDomainEditor
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 361)
|
||||
Me.Controls.Add(Me.DomainList)
|
||||
Me.Controls.Add(Me.ToolBar1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Menu = Me.MainMenu1
|
||||
Me.Name = "frmDomainEditor"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.Text = "frmDomainEdidor"
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Public Sub FormSize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If g_bRun Then
|
||||
Me.SuspendLayout()
|
||||
Dim ds As New edokadb.clsSysadminfunktion()
|
||||
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.ResumeLayout()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren(ByVal ds As DataSet)
|
||||
'Spaltentitel setzen
|
||||
If g_bRun Then
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim anzcols As Integer
|
||||
Dim cols(Me.DomainList.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
anzcols = Me.DomainList.Splits(0).DisplayColumns.Count
|
||||
t = ds.Tables(0)
|
||||
ts.Tabelle = Me.TableName
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
s = Me.DomainList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.DomainList.Columns(i).Caption = ts.spaltenname
|
||||
|
||||
If ts.ColWith = 0 Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
' If Me.DomainList.Columns(i).Caption = "" Then
|
||||
' Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
' Else
|
||||
' Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
' End If
|
||||
' If Me.DomainList.Columns(i).Caption = "" Then Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
If ts.locked Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.DomainList.Columns(i).DataField = "aktiv" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.DomainList.Columns(i).DefaultValue = True
|
||||
Me.DomainList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.DomainList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
'Me.DomainList.Splits(0).DisplayColumns.Insert(ts.Order, Me.DomainList.Splits(0).DisplayColumns(i))
|
||||
'me.DomainList.Splits(0).DisplayColumns.RemoveAt(i)
|
||||
' cols(ts.Order) = Me.DomainList.Splits(0).DisplayColumns(i)
|
||||
Next
|
||||
' For i = 0 To Me.DomainList.Splits(0).DisplayColumns.Count - 1
|
||||
' Me.DomainList.Splits(0).DisplayColumns.RemoveAt(0)
|
||||
' Next
|
||||
' For i = anzcols To 0 Step -1
|
||||
' Me.DomainList.Splits(0).DisplayColumns.Insert(0, cols(i))
|
||||
' Next
|
||||
' cols = Nothing
|
||||
'
|
||||
Form_As_SelectForm()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub C1TrueDBGrid1_FetchCellTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles DomainList.FetchCellTips
|
||||
If g_bRun Then
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
ts.Tabelle = Me.TableName
|
||||
Try
|
||||
ts.Feld = Me.DomainList.Columns(e.ColIndex).DataField
|
||||
ts.getspalte()
|
||||
e.CellTip = ts.TipText
|
||||
Catch
|
||||
End Try
|
||||
ts = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
|
||||
Dim i As Integer
|
||||
'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen
|
||||
Try
|
||||
For i = 0 To DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "aktiv" Then
|
||||
Me.DomainList.Columns(i).Value = 1
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "mutiert_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "mutierer" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
Try
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mutiert_am" Then Me.DomainList.Columns(i).Value = Now
|
||||
If Me.DomainList.Columns(i).DataField = "mutierer" Then Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
|
||||
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
||||
If Me.DomainList.Columns(0).Value Is DBNull.Value Then
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey(TableName)
|
||||
Me.DomainList.Columns(0).Value = key
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mandantnr" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MandantNr
|
||||
End If
|
||||
Next
|
||||
dbkey.Dispose()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
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
|
||||
Case 1 'Speichern
|
||||
Me.ActiveControl = Me.ToolBar1
|
||||
Me.ActiveControl = Me.DomainList
|
||||
Case Else
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmDomainEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
If g_bRun Then
|
||||
Me.Text = Me.Eintrag
|
||||
Try
|
||||
If Me.FormMaximize = True Then Globals.WinPos.Get_Position(Me)
|
||||
Catch
|
||||
End Try
|
||||
Me.DomainList.ScrollTips = True
|
||||
'Me.WindowState = FormWindowState.Maximized
|
||||
'EDEX_Dokumentpakete 2005-01-13
|
||||
If Me.FormMaximize Then Me.WindowState = FormWindowState.Maximized
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Doklist_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles DomainList.FetchScrollTips
|
||||
Select Case e.ScrollBar
|
||||
Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
|
||||
e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.DomainList.Splits(0).Rows.Count)
|
||||
End Select
|
||||
e.TipStyle.ForeColor = Color.Blue
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmDomainEditor_Close(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 DomainList_Dblklick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
||||
If ToSelect Then
|
||||
Me.TransferKey = Me.DomainList.Columns(0).Value
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form_As_SelectForm()
|
||||
If ToSelect Then
|
||||
Me.DomainList.AllowAddNew = False
|
||||
Me.DomainList.AllowUpdate = False
|
||||
Me.ToolBar1.Buttons(1).Visible = False
|
||||
Me.MenuItem3.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
168
EDOKA/Backup1/Systemadministration/Domains/frmDomainFAAppl.resx
Normal file
168
EDOKA/Backup1/Systemadministration/Domains/frmDomainFAAppl.resx
Normal file
@@ -0,0 +1,168 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainFAAppl</value>
|
||||
</data>
|
||||
</root>
|
||||
342
EDOKA/Backup1/Systemadministration/Domains/frmDomainFAAppl.vb
Normal file
342
EDOKA/Backup1/Systemadministration/Domains/frmDomainFAAppl.vb
Normal file
@@ -0,0 +1,342 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainFAAppl
|
||||
Inherits EDOKAApp.frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "FA_APPL", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ApplNr", "ApplNr"), New System.Data.Common.DataColumnMapping("Bezeichnung", "Bezeichnung"), New System.Data.Common.DataColumnMapping("EDOKA_Mitarbeiter", "EDOKA_Mitarbeiter"), New System.Data.Common.DataColumnMapping("Log_erstellung", "Log_erstellung"), New System.Data.Common.DataColumnMapping("Mail_Empfaneger", "Mail_Empfaneger"), New System.Data.Common.DataColumnMapping("Mail_Periodizitaet", "Mail_Periodizitaet"), New System.Data.Common.DataColumnMapping("Verarbeitungsart", "Verarbeitungsart"), New System.Data.Common.DataColumnMapping("OutputFormat", "OutputFormat"), New System.Data.Common.DataColumnMapping("DTO_Parameter", "DTO_Parameter"), 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"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_faappl_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_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", 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_DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DTO_Parameter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Mitarbeiter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Log_erstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Log_erstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Empfaneger", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Periodizitaet", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_OutputFormat", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OutputFormat", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Verarbeitungsart", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Verarbeitungsart", 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_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;user id=tgedoka;workstation id=TG602636;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_faappl_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("@Bezeichnung", System.Data.SqlDbType.VarChar, 50, "Bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, "EDOKA_Mitarbeiter"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Log_erstellung", System.Data.SqlDbType.Int, 4, "Log_erstellung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, "Mail_Empfaneger"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, "Mail_Periodizitaet"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Verarbeitungsart", System.Data.SqlDbType.Int, 4, "Verarbeitungsart"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OutputFormat", System.Data.SqlDbType.VarChar, 50, "OutputFormat"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, "DTO_Parameter"))
|
||||
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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_faappl_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_faappl_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("@Bezeichnung", System.Data.SqlDbType.VarChar, 50, "Bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, "EDOKA_Mitarbeiter"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Log_erstellung", System.Data.SqlDbType.Int, 4, "Log_erstellung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, "Mail_Empfaneger"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, "Mail_Periodizitaet"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Verarbeitungsart", System.Data.SqlDbType.Int, 4, "Verarbeitungsart"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OutputFormat", System.Data.SqlDbType.VarChar, 50, "OutputFormat"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, "DTO_Parameter"))
|
||||
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("@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("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", 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_DTO_Parameter", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DTO_Parameter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Mitarbeiter", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Mitarbeiter", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Log_erstellung", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Log_erstellung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Empfaneger", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Empfaneger", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Mail_Periodizitaet", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mail_Periodizitaet", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_OutputFormat", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "OutputFormat", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Verarbeitungsart", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Verarbeitungsart", 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_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("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainFAAppl
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(624, 273)
|
||||
Me.Name = "frmDomainFAAppl"
|
||||
Me.Text = """EDOKA-Import - Fremdanwendungen"""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainFAAppl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.Text = "EDOKA-Import - Fremdanwendungen"
|
||||
Me.TableName = "fa_appl"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
Dim dt As New DataTable()
|
||||
Dim i As Integer
|
||||
dt = get_journalerstellung()
|
||||
|
||||
For i = 0 To dt.Rows.Count - 1
|
||||
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
vi.DisplayValue = dt.Rows(i).Item("bezeichnung")
|
||||
vi.Value = dt.Rows(i).Item("FA_Journalerstellungnr")
|
||||
Me.DomainList.Columns("log_erstellung").ValueItems.Values.Add(vi)
|
||||
Me.DomainList.Columns("log_erstellung").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
Me.DomainList.Columns("log_erstellung").ValueItems.Translate = True
|
||||
Next
|
||||
|
||||
Dim dv As New DataTable()
|
||||
dv = get_verarbeitungsart()
|
||||
For i = 0 To dv.Rows.Count - 1
|
||||
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
vi.DisplayValue = dv.Rows(i).Item("bezeichnung")
|
||||
vi.Value = dv.Rows(i).Item("FA_Verarbeitungsartnr")
|
||||
Me.DomainList.Columns("verarbeitungsart").ValueItems.Values.Add(vi)
|
||||
Me.DomainList.Columns("verarbeitungsart").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
Me.DomainList.Columns("verarbeitungsart").ValueItems.Translate = True
|
||||
Next
|
||||
|
||||
Dim dm As New DataTable()
|
||||
dm = get_mailperiode()
|
||||
For i = 0 To dm.Rows.Count - 1
|
||||
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
vi.DisplayValue = dm.Rows(i).Item("bezeichnung")
|
||||
vi.Value = dm.Rows(i).Item("FA_mailperiodenr")
|
||||
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Values.Add(vi)
|
||||
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
Me.DomainList.Columns("Mail_Periodizitaet").ValueItems.Translate = True
|
||||
Next
|
||||
For i = 1 To 5
|
||||
Dim s As String
|
||||
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Select Case i
|
||||
Case 1
|
||||
s = "PDF"
|
||||
Case 2
|
||||
s = "TXT"
|
||||
Case 3
|
||||
s = "CSV"
|
||||
Case 4
|
||||
s = "DOC"
|
||||
Case 5
|
||||
s = "XLS"
|
||||
End Select
|
||||
vi.DisplayValue = s
|
||||
vi.Value = s
|
||||
Me.DomainList.Columns("OutputFormat").ValueItems.Values.Add(vi)
|
||||
Me.DomainList.Columns("OutputFormat").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
Me.DomainList.Columns("OutputFormat").ValueItems.Translate = True
|
||||
Next
|
||||
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
dv.Dispose()
|
||||
dt.Dispose()
|
||||
dm.Dispose()
|
||||
End Sub
|
||||
|
||||
Public Function get_journalerstellung() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_journalerstellung"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function get_verarbeitungsart() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_verarbeitungsart"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Function get_mailperiode() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_edoka_import_get_mailperiode"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,178 @@
|
||||
<?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="drpApplication.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="drpDokumenttyp.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="$this.Name">
|
||||
<value>frmDomainFADokumenttyp</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,428 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainFADokumenttyp
|
||||
|
||||
Inherits EDOKAApp.frmDomainEditor
|
||||
|
||||
#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 drpApplication As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Friend WithEvents drpDokumenttyp As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainFADokumenttyp))
|
||||
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()
|
||||
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.drpApplication = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
Me.drpDokumenttyp = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.drpApplication, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.drpDokumenttyp, 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", "FA_Dokumenttyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Eintragnr", "Eintragnr"), New System.Data.Common.DataColumnMapping("ApplNr", "ApplNr"), New System.Data.Common.DataColumnMapping("FA_Dokumenttyp", "FA_Dokumenttyp"), New System.Data.Common.DataColumnMapping("EDOKA_Dokumenttyp", "EDOKA_Dokumenttyp"), 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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_fadokumenttyp_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_fadokumenttyp_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("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, "FA_Dokumenttyp"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, "EDOKA_Dokumenttyp"))
|
||||
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("@aktiv", System.Data.SqlDbType.Int, 4, "aktiv"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_fadokumenttyp_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("@ApplNr", System.Data.SqlDbType.Int, 4, "ApplNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, "FA_Dokumenttyp"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, "EDOKA_Dokumenttyp"))
|
||||
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("@aktiv", System.Data.SqlDbType.Int, 4, "aktiv"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Int, 4, 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_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_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("@Eintragnr", System.Data.SqlDbType.Int, 4, "Eintragnr"))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_fadokumenttyp_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_Eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ApplNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ApplNr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_EDOKA_Dokumenttyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EDOKA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_FA_Dokumenttyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FA_Dokumenttyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Int, 4, 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_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_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;user id=tgedoka;workstation id=TG602636;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'drpApplication
|
||||
'
|
||||
Me.drpApplication.AllowColMove = True
|
||||
Me.drpApplication.AllowColSelect = True
|
||||
Me.drpApplication.AllowFilter = True
|
||||
Me.drpApplication.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.drpApplication.AllowSort = True
|
||||
Me.drpApplication.AlternatingRows = False
|
||||
Me.drpApplication.CaptionHeight = 17
|
||||
Me.drpApplication.ColumnCaptionHeight = 17
|
||||
Me.drpApplication.ColumnFooterHeight = 17
|
||||
Me.drpApplication.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.drpApplication.FetchRowStyles = False
|
||||
Me.drpApplication.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.drpApplication.LayoutFileName = ""
|
||||
Me.drpApplication.LayoutName = ""
|
||||
Me.drpApplication.LayoutURL = ""
|
||||
Me.drpApplication.Location = New System.Drawing.Point(128, 40)
|
||||
Me.drpApplication.Name = "drpApplication"
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.drpApplication.RowDivider = GridLines1
|
||||
Me.drpApplication.RowHeight = 15
|
||||
Me.drpApplication.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.drpApplication.ScrollTips = False
|
||||
Me.drpApplication.Size = New System.Drawing.Size(232, 216)
|
||||
Me.drpApplication.TabIndex = 18
|
||||
Me.drpApplication.Text = "C1TrueDBDropdown2"
|
||||
Me.drpApplication.Visible = False
|
||||
Me.drpApplication.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: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;}Style9{}Od" & _
|
||||
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Borde" & _
|
||||
"r:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{Al" & _
|
||||
"ignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</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, 228, 212</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, 228, 212</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'drpDokumenttyp
|
||||
'
|
||||
Me.drpDokumenttyp.AllowColMove = True
|
||||
Me.drpDokumenttyp.AllowColSelect = True
|
||||
Me.drpDokumenttyp.AllowFilter = True
|
||||
Me.drpDokumenttyp.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.drpDokumenttyp.AllowSort = True
|
||||
Me.drpDokumenttyp.AlternatingRows = False
|
||||
Me.drpDokumenttyp.CaptionHeight = 17
|
||||
Me.drpDokumenttyp.ColumnCaptionHeight = 17
|
||||
Me.drpDokumenttyp.ColumnFooterHeight = 17
|
||||
Me.drpDokumenttyp.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.drpDokumenttyp.FetchRowStyles = False
|
||||
Me.drpDokumenttyp.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.drpDokumenttyp.LayoutFileName = ""
|
||||
Me.drpDokumenttyp.LayoutName = ""
|
||||
Me.drpDokumenttyp.LayoutURL = ""
|
||||
Me.drpDokumenttyp.Location = New System.Drawing.Point(224, 28)
|
||||
Me.drpDokumenttyp.Name = "drpDokumenttyp"
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.drpDokumenttyp.RowDivider = GridLines2
|
||||
Me.drpDokumenttyp.RowHeight = 15
|
||||
Me.drpDokumenttyp.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.drpDokumenttyp.ScrollTips = False
|
||||
Me.drpDokumenttyp.Size = New System.Drawing.Size(232, 216)
|
||||
Me.drpDokumenttyp.TabIndex = 19
|
||||
Me.drpDokumenttyp.Text = "C1TrueDBDropdown2"
|
||||
Me.drpDokumenttyp.Visible = False
|
||||
Me.drpDokumenttyp.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, 228, 212</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, 228, 212</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'frmDomainFADokumenttyp
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(680, 273)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpDokumenttyp, Me.drpApplication})
|
||||
Me.Name = "frmDomainFADokumenttyp"
|
||||
Me.Text = "frmDomainFADokumenttyp"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.drpApplication, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.drpDokumenttyp, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainFAAppl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "FA_Dokumenttyp"
|
||||
Me.Text = "EDOKA-Import - Zuweisung FA-Dokumenttyp zu EDOKA-Dokumenttyp"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
Me.FillDropDown_Appl()
|
||||
Me.FillDropDown_DokTyp()
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub FillDropDown_Appl()
|
||||
'===============================================================================
|
||||
'Spaltenbreite DrpRight
|
||||
'===============================================================================
|
||||
Dim ds As New DataSet()
|
||||
Dim sqlcmd As New SqlCommand()
|
||||
Dim da As New SqlDataAdapter(sqlcmd)
|
||||
Dim sTranslateTabelname As String
|
||||
Dim sTranslateColumn As String
|
||||
|
||||
'======================================================================
|
||||
'Klassifizierung
|
||||
'======================================================================
|
||||
sTranslateTabelname = "FA_Appl"
|
||||
Me.drpApplication.ListField = "bezeichnung"
|
||||
Me.drpApplication.DataField = "ApplNr"
|
||||
|
||||
If Not ds.Tables(sTranslateTabelname) Is Nothing Then
|
||||
ds.Tables(sTranslateTabelname).Clear()
|
||||
End If
|
||||
|
||||
With sqlcmd
|
||||
.CommandType = CommandType.StoredProcedure
|
||||
.CommandText = "sp_edoka_import_get_appl"
|
||||
.Connection = SqlConnection1
|
||||
.Parameters.Add("@mandantnr", Globals.MandantNr)
|
||||
End With
|
||||
|
||||
Try
|
||||
da.Fill(ds, sTranslateTabelname)
|
||||
Me.drpApplication.DataSource = ds
|
||||
Me.drpApplication.ValueTranslate = True
|
||||
Me.drpApplication.DataSource = ds
|
||||
Me.drpApplication.DataMember = sTranslateTabelname
|
||||
Me.drpApplication.DisplayColumns(0).Width = 30
|
||||
|
||||
'Me.drpApplication.DataSource = ds.Tables(0)
|
||||
Me.drpApplication.DataMember = ds.Tables(0).TableName
|
||||
|
||||
Me.DomainList.Columns("ApplNr").DropDown = Me.drpApplication
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub FillDropDown_DokTyp()
|
||||
'===============================================================================
|
||||
'Spaltenbreite DrpRight
|
||||
'===============================================================================
|
||||
Dim ds As New DataSet()
|
||||
Dim sqlcmd As New SqlCommand()
|
||||
Dim da As New SqlDataAdapter(sqlcmd)
|
||||
Dim sTranslateTabelname As String
|
||||
Dim sTranslateColumn As String
|
||||
|
||||
'======================================================================
|
||||
'Klassifizierung
|
||||
'======================================================================
|
||||
sTranslateTabelname = "Dokumenttyp"
|
||||
Me.drpDokumenttyp.ListField = "bezeichnung"
|
||||
Me.drpDokumenttyp.DataField = "Dokumenttypnr"
|
||||
|
||||
If Not ds.Tables(sTranslateTabelname) Is Nothing Then
|
||||
ds.Tables(sTranslateTabelname).Clear()
|
||||
End If
|
||||
|
||||
With sqlcmd
|
||||
.CommandType = CommandType.StoredProcedure
|
||||
.CommandText = "sp_edoka_import_get_Dokumenttyp"
|
||||
.Connection = SqlConnection1
|
||||
.Parameters.Add("@mandantnr", Globals.MandantNr)
|
||||
End With
|
||||
|
||||
Try
|
||||
da.Fill(ds, sTranslateTabelname)
|
||||
Me.drpDokumenttyp.DataSource = ds
|
||||
Me.drpDokumenttyp.ValueTranslate = True
|
||||
Me.drpDokumenttyp.DataSource = ds
|
||||
Me.drpDokumenttyp.DataMember = sTranslateTabelname
|
||||
Me.drpDokumenttyp.DisplayColumns(0).Width = 30
|
||||
|
||||
'Me.drpApplication.DataSource = ds.Tables(0)
|
||||
Me.drpDokumenttyp.DataMember = ds.Tables(0).TableName
|
||||
|
||||
Me.DomainList.Columns("EDOKA_Dokumenttyp").DropDown = Me.drpDokumenttyp
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainFeldtyp.resx
Normal file
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainFeldtyp.resx
Normal file
@@ -0,0 +1,156 @@
|
||||
<?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>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="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>485, 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>620, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainFeldtyp</value>
|
||||
</data>
|
||||
</root>
|
||||
208
EDOKA/Backup1/Systemadministration/Domains/frmDomainFeldtyp.vb
Normal file
208
EDOKA/Backup1/Systemadministration/Domains/frmDomainFeldtyp.vb
Normal file
@@ -0,0 +1,208 @@
|
||||
|
||||
|
||||
Public Class frmDomainFeldtyp
|
||||
Inherits EDOKAApp.frmDomainEditor
|
||||
|
||||
#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 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
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()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.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", "Feldtyp", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("feldtypNr", "feldtypNr"), New System.Data.Common.DataColumnMapping("feldtyp", "feldtyp"), New System.Data.Common.DataColumnMapping("format", "format"), 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
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_feldtyp_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_feldtyp_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("@feldtypNr", System.Data.SqlDbType.Int, 4, "feldtypNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtyp", System.Data.SqlDbType.VarChar, 50, "feldtyp"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@format", System.Data.SqlDbType.VarChar, 50, "format"))
|
||||
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("@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"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_feldtyp_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("@feldtypNr", System.Data.SqlDbType.Int, 4, "feldtypNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtyp", System.Data.SqlDbType.VarChar, 50, "feldtyp"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@format", System.Data.SqlDbType.VarChar, 50, "format"))
|
||||
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("@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_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtypNr", 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_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_feldtyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_format", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", 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_feldtyp_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_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtypNr", 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_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_feldtyp", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_format", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "format", 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;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
|
||||
"=4096"
|
||||
'
|
||||
'frmDomainFeldtyp
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 339)
|
||||
Me.Name = "frmDomainFeldtyp"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainFeldtyp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "Feldtyp"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "odbc" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
If Me.DomainList.Columns(i).DataField = "oledb" Then Me.DomainList.Columns(i).DefaultValue = True
|
||||
If Me.DomainList.Columns(i).DataField = "sqlclient" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
Next
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmDomainSteuerbefehl_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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>382, 12</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>17, 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="$this.Name">
|
||||
<value>frmDomainFunktion</value>
|
||||
</data>
|
||||
</root>
|
||||
196
EDOKA/Backup1/Systemadministration/Domains/frmDomainFunktion.vb
Normal file
196
EDOKA/Backup1/Systemadministration/Domains/frmDomainFunktion.vb
Normal file
@@ -0,0 +1,196 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainFunktion
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "funktion", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("funktionnr", "funktionnr"), 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_funktion_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_funktion_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("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
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_funktion_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("@funktionnr", System.Data.SqlDbType.Int, 4, "funktionnr"))
|
||||
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_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_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_funktion_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_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_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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainFunktion
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(656, 273)
|
||||
Me.Name = "frmDomainFunktion"
|
||||
Me.Text = "Funktionen"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "funktion"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainFunktionsgruppe</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,221 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainFunktionsgruppe
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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("zugehoerigkeit", "zugehoerigkeit"), 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("funktionszuweisung", "funktionszuweisung"), New System.Data.Common.DataColumnMapping("barcodeetiketten", "barcodeetiketten"), New System.Data.Common.DataColumnMapping("edokapartner", "edokapartner"), New System.Data.Common.DataColumnMapping("Dokumentreaktivierung", "Dokumentreaktivierung"), New System.Data.Common.DataColumnMapping("Partnerzusammenlegung", "Partnerzusammenlegung"), New System.Data.Common.DataColumnMapping("BLV", "BLV")})})
|
||||
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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'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("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"))
|
||||
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("@funktionszuweisung", System.Data.SqlDbType.Bit, 1, "funktionszuweisung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@barcodeetiketten", System.Data.SqlDbType.Bit, 1, "barcodeetiketten"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edokapartner", System.Data.SqlDbType.Bit, 1, "edokapartner"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, "Dokumentreaktivierung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, "Partnerzusammenlegung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BLV", System.Data.SqlDbType.Bit, 1, "BLV"))
|
||||
'
|
||||
'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("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"))
|
||||
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("@funktionszuweisung", System.Data.SqlDbType.Bit, 1, "funktionszuweisung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@barcodeetiketten", System.Data.SqlDbType.Bit, 1, "barcodeetiketten"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@edokapartner", System.Data.SqlDbType.Bit, 1, "edokapartner"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, "Dokumentreaktivierung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, "Partnerzusammenlegung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@BLV", System.Data.SqlDbType.Bit, 1, "BLV"))
|
||||
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_BLV", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BLV", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumentreaktivierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Partnerzusammenlegung", 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_barcodeetiketten", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcodeetiketten", 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_edokapartner", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edokapartner", 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_funktionszuweisung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionszuweisung", 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_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", 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_BLV", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "BLV", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Dokumentreaktivierung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumentreaktivierung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Partnerzusammenlegung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Partnerzusammenlegung", 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_barcodeetiketten", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "barcodeetiketten", 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_edokapartner", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "edokapartner", 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_funktionszuweisung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "funktionszuweisung", 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_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainFunktionsgruppe
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, 0)
|
||||
Me.Name = "frmDomainFunktionsgruppe"
|
||||
Me.Text = "frmDomainFunktionsgruppe"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "funktionsgruppe"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainGrund.resx
Normal file
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainGrund.resx
Normal file
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainGrund</value>
|
||||
</data>
|
||||
</root>
|
||||
204
EDOKA/Backup1/Systemadministration/Domains/frmDomainGrund.vb
Normal file
204
EDOKA/Backup1/Systemadministration/Domains/frmDomainGrund.vb
Normal file
@@ -0,0 +1,204 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainGrund
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "Grund", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("grundnr", "grundnr"), New System.Data.Common.DataColumnMapping("grund", "grund"), New System.Data.Common.DataColumnMapping("grundtyp", "grundtyp"), 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"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu00;initial catalog=edoka;persist security info=False;user id=sa;wo" & _
|
||||
"rkstation id=SHU00;packet size=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_grund_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_grund_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("@grundnr", System.Data.SqlDbType.Int, 4, "grundnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@grund", System.Data.SqlDbType.VarChar, 255, "grund"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@grundtyp", System.Data.SqlDbType.Int, 4, "grundtyp"))
|
||||
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("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_grund_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("@grundnr", System.Data.SqlDbType.Int, 4, "grundnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@grund", System.Data.SqlDbType.VarChar, 255, "grund"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@grundtyp", System.Data.SqlDbType.Int, 4, "grundtyp"))
|
||||
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("@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("@Original_grundnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grundnr", 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_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_grund", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grund", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_grundtyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grundtyp", 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_grund_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_grundnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grundnr", 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_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_grund", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grund", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_grundtyp", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "grundtyp", 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))
|
||||
'
|
||||
'frmDomainGrund
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, -20)
|
||||
Me.Name = "frmDomainGrund"
|
||||
Me.Text = "frmDomainGrund"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "grund"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "ist_in_dll" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainIDVMakros</value>
|
||||
</data>
|
||||
</root>
|
||||
211
EDOKA/Backup1/Systemadministration/Domains/frmDomainIDVMakros.vb
Normal file
211
EDOKA/Backup1/Systemadministration/Domains/frmDomainIDVMakros.vb
Normal file
@@ -0,0 +1,211 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainIDVMakros
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "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.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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_idvmakros_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_idvmakros_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("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@makro", System.Data.SqlDbType.VarChar, 255, "makro"))
|
||||
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("@ist_in_dll", System.Data.SqlDbType.Bit, 1, "ist_in_dll"))
|
||||
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_idvmakros_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("@idvmakronr", System.Data.SqlDbType.Int, 4, "idvmakronr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@makro", System.Data.SqlDbType.VarChar, 255, "makro"))
|
||||
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("@ist_in_dll", System.Data.SqlDbType.Bit, 1, "ist_in_dll"))
|
||||
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_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", 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_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_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.SqlUpdateCommand1.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.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_idvmakros_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_idvmakronr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "idvmakronr", 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_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_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.SqlDeleteCommand1.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.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))
|
||||
'
|
||||
'frmDomainIDVMakros
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainIDVMakros"
|
||||
Me.Text = "cldDomainBerechtigung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "idv_makros"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "ist_in_dll" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainKeyTabelle</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,194 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmDomainKeyTabelle
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "key_tabelle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("keynr", "keynr"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("key_wert", "key_wert"), 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_key_tabelle_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_key_tabelle_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("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@key_wert", System.Data.SqlDbType.Int, 4, "key_wert"))
|
||||
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_key_tabelle_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("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@key_wert", System.Data.SqlDbType.Int, 4, "key_wert"))
|
||||
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_keynr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "keynr", 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_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_key_wert", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "key_wert", 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("@keynr", System.Data.SqlDbType.Int, 4, "keynr"))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_key_tabelle_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_keynr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "keynr", 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_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_key_wert", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "key_wert", 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainKeyTabelle
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainKeyTabelle"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "key_tabelle"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,162 @@
|
||||
<?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="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="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="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>485, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmdomainloeschgrund</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,206 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmdomainloeschgrund
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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 SqlConnection2 As System.Data.SqlClient.SqlConnection
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
||||
CType(Me.DataSet1, 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", "loeschgrund", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("loeschgrundnr", "loeschgrundnr"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_loeschgrund_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection2
|
||||
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_loeschgrund_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection2
|
||||
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("@loeschgrundnr", System.Data.SqlDbType.Int, 4, "loeschgrundnr"))
|
||||
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.VarChar, 10, "mutierer"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_loeschgrund_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection2
|
||||
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("@loeschgrundnr", System.Data.SqlDbType.Int, 4, "loeschgrundnr"))
|
||||
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("@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.VarChar, 10, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_loeschgrundnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschgrundnr", 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.VarChar, 10, 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_loeschgrund_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection2
|
||||
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_loeschgrundnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "loeschgrundnr", 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.VarChar, 10, 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))
|
||||
'
|
||||
'SqlConnection2
|
||||
'
|
||||
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
|
||||
"ty info=False;workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'frmdomainloeschgrund
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmdomainloeschgrund"
|
||||
Me.Text = "frmDomainColdFolder"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "loeschgrund"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection2.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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,162 @@
|
||||
<?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="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="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="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>485, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainMailtexte</value>
|
||||
</data>
|
||||
</root>
|
||||
212
EDOKA/Backup1/Systemadministration/Domains/frmDomainMailtexte.vb
Normal file
212
EDOKA/Backup1/Systemadministration/Domains/frmDomainMailtexte.vb
Normal file
@@ -0,0 +1,212 @@
|
||||
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainMailtexte
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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 SqlConnection2 As System.Data.SqlClient.SqlConnection
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
||||
CType(Me.DataSet1, 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", "mailtexte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mailtextnr", "mailtextnr"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("betreff", "betreff"), New System.Data.Common.DataColumnMapping("inhalt", "inhalt"), 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("mandantnr", "mandantnr")})})
|
||||
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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_mailtexte_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_mailtexte_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("@mailtextnr", System.Data.SqlDbType.Int, 4, "mailtextnr"))
|
||||
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("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@betreff", System.Data.SqlDbType.VarChar, 1024, "betreff"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_mailtexte_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("@mailtextnr", System.Data.SqlDbType.Int, 4, "mailtextnr"))
|
||||
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("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@betreff", System.Data.SqlDbType.VarChar, 1024, "betreff"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mailtextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailtextnr", 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_betreff", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "betreff", 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_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_mailtexte_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_mailtextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mailtextnr", 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_betreff", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "betreff", 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_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection2
|
||||
'
|
||||
Me.SqlConnection2.ConnectionString = "data source=tg339012;initial catalog=edoka_parameter;integrated security=SSPI;per" & _
|
||||
"sist security info=False;user id=dbedoka11;workstation id=TG602655;packet size=4" & _
|
||||
"096"
|
||||
'
|
||||
'frmDomainMailtexte
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainMailtexte"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "mailtexte"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
168
EDOKA/Backup1/Systemadministration/Domains/frmDomainMandant.resx
Normal file
168
EDOKA/Backup1/Systemadministration/Domains/frmDomainMandant.resx
Normal file
@@ -0,0 +1,168 @@
|
||||
<?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>257, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>373, 18</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="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="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="$this.Name">
|
||||
<value>frmDomainMandant</value>
|
||||
</data>
|
||||
</root>
|
||||
205
EDOKA/Backup1/Systemadministration/Domains/frmDomainMandant.vb
Normal file
205
EDOKA/Backup1/Systemadministration/Domains/frmDomainMandant.vb
Normal file
@@ -0,0 +1,205 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainMandant
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 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.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()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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", "mandant", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mandantnr1", "mandantnr1"), 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 = "DELETE FROM mandant WHERE (mandantnr = @Original_mandantnr) AND (aktiv = @Origina" & _
|
||||
"l_aktiv OR @Original_aktiv IS NULL AND aktiv IS NULL) AND (beschreibung = @Origi" & _
|
||||
"nal_beschreibung OR @Original_beschreibung IS NULL AND beschreibung IS NULL) AND" & _
|
||||
" (bezeichnung = @Original_bezeichnung OR @Original_bezeichnung IS NULL AND bezei" & _
|
||||
"chnung IS NULL) AND (erstellt_am = @Original_erstellt_am OR @Original_erstellt_a" & _
|
||||
"m IS NULL AND erstellt_am IS NULL) AND (mandantnr1 = @Original_mandantnr1 OR @Or" & _
|
||||
"iginal_mandantnr1 IS NULL AND mandantnr1 IS NULL) AND (mutierer = @Original_muti" & _
|
||||
"erer OR @Original_mutierer IS NULL AND mutierer IS NULL) AND (mutiert_am = @Orig" & _
|
||||
"inal_mutiert_am OR @Original_mutiert_am IS NULL AND mutiert_am IS NULL)"
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
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_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_mandantnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr1", 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 = "INSERT INTO mandant(mandantnr, bezeichnung, beschreibung, mandantnr1, aktiv, erst" & _
|
||||
"ellt_am, mutiert_am, mutierer) VALUES (@mandantnr, @bezeichnung, @beschreibung, " & _
|
||||
"@mandantnr1, @aktiv, @erstellt_am, @mutiert_am, @mutierer); SELECT mandantnr, be" & _
|
||||
"zeichnung, beschreibung, mandantnr1, aktiv, erstellt_am, mutiert_am, mutierer FR" & _
|
||||
"OM mandant WHERE (mandantnr = @mandantnr)"
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||
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("@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("@mandantnr1", System.Data.SqlDbType.Int, 4, "mandantnr1"))
|
||||
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 = "SELECT mandantnr, bezeichnung, beschreibung, mandantnr1, aktiv, erstellt_am, muti" & _
|
||||
"ert_am, mutierer FROM mandant"
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "UPDATE mandant SET mandantnr = @mandantnr, bezeichnung = @bezeichnung, beschreibu" & _
|
||||
"ng = @beschreibung, mandantnr1 = @mandantnr1, aktiv = @aktiv, erstellt_am = @ers" & _
|
||||
"tellt_am, mutiert_am = @mutiert_am, mutierer = @mutierer WHERE (mandantnr = @Ori" & _
|
||||
"ginal_mandantnr) AND (aktiv = @Original_aktiv OR @Original_aktiv IS NULL AND akt" & _
|
||||
"iv IS NULL) AND (beschreibung = @Original_beschreibung OR @Original_beschreibung" & _
|
||||
" IS NULL AND beschreibung IS NULL) AND (bezeichnung = @Original_bezeichnung OR @" & _
|
||||
"Original_bezeichnung IS NULL AND bezeichnung IS NULL) AND (erstellt_am = @Origin" & _
|
||||
"al_erstellt_am OR @Original_erstellt_am IS NULL AND erstellt_am IS NULL) AND (ma" & _
|
||||
"ndantnr1 = @Original_mandantnr1 OR @Original_mandantnr1 IS NULL AND mandantnr1 I" & _
|
||||
"S NULL) AND (mutierer = @Original_mutierer OR @Original_mutierer IS NULL AND mut" & _
|
||||
"ierer IS NULL) AND (mutiert_am = @Original_mutiert_am OR @Original_mutiert_am IS" & _
|
||||
" NULL AND mutiert_am IS NULL); SELECT mandantnr, bezeichnung, beschreibung, mand" & _
|
||||
"antnr1, aktiv, erstellt_am, mutiert_am, mutierer FROM mandant WHERE (mandantnr =" & _
|
||||
" @mandantnr)"
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
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("@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("@mandantnr1", System.Data.SqlDbType.Int, 4, "mandantnr1"))
|
||||
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_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_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_mandantnr1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr1", 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))
|
||||
'
|
||||
'frmDomainMandant
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 329)
|
||||
Me.Name = "frmDomainMandant"
|
||||
Me.Text = "Mandanten"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "Mandant"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainMarktbereich</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,199 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmDomainMarktbereich
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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))
|
||||
'
|
||||
'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"))
|
||||
'
|
||||
'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))
|
||||
'
|
||||
'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))
|
||||
'
|
||||
'frmDomainMarktbereich
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainMarktbereich"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "marktbereich"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainMeldungstexte</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,195 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainMeldungstexte
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "meldungstexte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("meldungstextnr", "meldungstextnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("inhalt", "inhalt"), New System.Data.Common.DataColumnMapping("Beschreibung", "Beschreibung"), 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("mandantnr", "mandantnr")})})
|
||||
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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_meldungstexte_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_meldungstexte_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("@meldungstextnr", System.Data.SqlDbType.Int, 4, "meldungstextnr"))
|
||||
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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
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("@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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_meldungstexte_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("@meldungstextnr", System.Data.SqlDbType.Int, 4, "meldungstextnr"))
|
||||
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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
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("@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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_meldungstextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "meldungstextnr", 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_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_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_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_meldungstexte_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_meldungstextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "meldungstextnr", 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_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_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_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainMeldungstexte
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(688, 249)
|
||||
Me.Name = "frmDomainMeldungstexte"
|
||||
Me.Text = "Meldungstexte"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMeldungstexte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "Meldungstexte"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902) + ex.Message)
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,682 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MainMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>214, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>108, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADU
|
||||
CgAAAk1TRnQBSQFMAgEBBAEAAQkBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8A/wD/AP8ABQAQBxAC
|
||||
EwAB7AwABwcBAAEHAQAD7AEAAgcCAg0AAQIGAAEDAf8LAAHsAf8CBwH/AwcB/wEHAwAHBwEAAQcBAAPs
|
||||
AQACBwECAQACAwYAAgcBAAEDAQABAgQAAewBAwHsAf8LAAHsCP8BBwQAAQcEAAEHAQABBwEAA+wBAAIH
|
||||
AQIBAAIDBgACBwEAAQMBAAECAgABAwHsAQMB7AEDAf8LAAHsAf8CBwH/AwcB/wEHAwAFBwMAAQcBAAPs
|
||||
AQACBwECAQACAwYAAgcBAAEDAQABAgEAAQMB7AEDAewBAwHsAf8BAAHsCQAB7Aj/AQcDAAUHAgACBwEA
|
||||
AewBBwHsAQACBwECAQACAwkAAQMBAAECAQAB7AEDAewBAwHsAQMB/wEAAewJAAHsAf8GBwH/AQcFAAEH
|
||||
AQABBwMAAQcBAAPsAQACBwECAQAMAwEAAQIBAAEDAewBAwIAAewB/wEAAewIAAEHAewI/wEHAwAEBwYA
|
||||
A+wBAAIHAQIBAAIDCAACAwEAAQIBAAHsAQMB7AIHAQMB/wEAAewBAAEGBgABBwHsAf8EBwH/AQcB/wEH
|
||||
AwAGBwIAAQcCAALsAQACBwECAQABAwEACAcBAAEDAQABAgEAAQMB7AEDAewBAwHsAf8CAAEGBf4B+wHs
|
||||
AQcB7Aj/AQcDAAUHAwABBwEAA+wBAAIHAQIBAAEDAQAIBwEAAQMBAAECAQAB7AEDAewBAwHsAQMB/wEA
|
||||
AW0G/gEAAfsB7AEHAf8EBwP/AQcDAAYHAgABBwIAAuwBAAIHAQIBAAEDAQAIBwEAAQMBAAECAQABAwHs
|
||||
AQMB7AEDAewB/wEAAewBbQH+BG0C7AMHAuwD/wYACQcFAAIHAQIBAAEDAQAIBwEAAQMBAAECAQAB7AED
|
||||
AewBAwHsAQMB/wEAAewBAAJtAwAD+wEHAfsBBwL7AewB/wHsAf8EABAHAQIBAAEDAQAIBwMAAQIBAAED
|
||||
AewBAwHsAQcB/wHsAQAB7AIAAW0EAAH7AewB+wHsAfsB7AP/AewFAAgHBAQEBwECAQABAwEACAcBAAEH
|
||||
AQABAgEAAewBAwEHAf8B7AEAA+wGAAH7AewBAAH7AewBAAH7BOwFAAgHAQQCBwEEBAcBAg4AAQIBAAEH
|
||||
Af8B7AEABewJAAH7AewCAAH7CAAIBwQEBAcQAhMAAfsB7AsAAUIBTQE+BwABPgMAASgDAAFAAwABIAMA
|
||||
AQEBAAEBBgABARYAA/+FAAH8AX8B4AEDBAAB8AF/AeABAwQAAcABfwHgAQMFAAEfAeABAwUAAR8B4AED
|
||||
BQABFwHgAQMFAAEHAcABAwYAAcABAwcAAQMGAAGAAQMHAAEDBQABBwEAAQcFAAEXAYABDwUAAR8BJAEf
|
||||
BQABHwHmAf8FAAEfAecB/ws=
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="TBTeam.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBTeam.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBTeam.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 128;}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>140</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 153, 140</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 155, 142</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="btnSaveTeammitarbeiter.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAAAAAADODgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/4CAgP/AwMD/AAD//wD/AP8A/////wAA//8A/////wD//////yIi
|
||||
IiIiIiIiIgAAAAAAAAIgMwAAAIgDAiAzAAAAiAMCIDMAAACIAwIgMwAAAAADAiAzMzMzMzMCIDMAAAAA
|
||||
MwIgMIiIiIgDAiAwiIiIiAMCIDCIiIiIAwIgMIiIiIgDAiAwiIiIiAACIDCIiIiICAIgAAAAAAAAAiIi
|
||||
IiIiIiIi
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="SqlDataAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>322, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>482, 202</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>457, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>145, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>413, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlConnection2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>855, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>848, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDataAdapter2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>585, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>637, 165</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand2.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand2.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="DataSet2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>649, 54</value>
|
||||
</metadata>
|
||||
<metadata name="daTeam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>692, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>484, 165</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand3.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand3.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="DsTeam.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>253, 91</value>
|
||||
</metadata>
|
||||
<data name="DomainList.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="DomainList.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="DomainList.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style5{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{Locked:False;BackColor:255, 255, 128;}EvenRow{BackColor:White;}Style11{}Style1{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Style15{}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>123</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 756, 123</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 758, 125</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="C1TrueDBDropdown1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="C1TrueDBDropdown1.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{}EvenRow{BackColor:Aqua;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>212</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 196, 212</ClientRect><BorderSide>0</BorderSide></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" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 198, 214</ClientArea></Blob></value>
|
||||
</data>
|
||||
<metadata name="SqlDataAdapter4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>720, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 128</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand4.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand4.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>169, 128</value>
|
||||
</metadata>
|
||||
<metadata name="DataSet4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>156, 91</value>
|
||||
</metadata>
|
||||
<data name="TBRight_Team.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBRight_Team.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBRight_Team.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 128;}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>153</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 257, 153</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 259, 155</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="TBRight_Funktion.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBRight_Funktion.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBRight_Funktion.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style15{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 128;}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>153</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 257, 153</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 259, 153</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="TBFunktion.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBFunktion.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="TBFunktion.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Style15{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{BackColor:255, 255, 128;}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>154</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 153, 154</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 155, 156</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<data name="btnSaveFunktionmitarbeiter.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAAAAAADODgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/4CAgP/AwMD/AAD//wD/AP8A/////wAA//8A/////wD//////yIi
|
||||
IiIiIiIiIgAAAAAAAAIgMwAAAIgDAiAzAAAAiAMCIDMAAACIAwIgMwAAAAADAiAzMzMzMzMCIDMAAAAA
|
||||
MwIgMIiIiIgDAiAwiIiIiAMCIDCIiIiIAwIgMIiIiIgDAiAwiIiIiAACIDCIiIiICAIgAAAAAAAAAiIi
|
||||
IiIiIiIi
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DaRight_Funktion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>273, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="DsRight_Funktion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</metadata>
|
||||
<metadata name="dsFunltion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>746, 54</value>
|
||||
</metadata>
|
||||
<metadata name="DaFunktion.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>541, 54</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>329, 165</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlInsertCommand5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 91</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand6.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand6.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlSelectCommand6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand5.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand5.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
</metadata>
|
||||
<data name="drpKlassifizierung.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||
RK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="drpKlassifizierung.PropBag" xml:space="preserve">
|
||||
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{}Style5{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{}EvenRow{BackColor:Aqua;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>212</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 228, 212</ClientRect><BorderSide>0</BorderSide></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" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 230, 214</ClientArea></Blob></value>
|
||||
</data>
|
||||
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>345, 91</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>151</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
|
||||
AAAA//8A/wAAAP8A/wD//wAA////AP/////////////////////////////w///////////////////w
|
||||
Dw//////////////////D//w////////////////8P///w//////////////8A/////w////////////
|
||||
/w///////w////////////D////////w//////////AP/////////w////////8P///////////w////
|
||||
///w////////////8P///////w////////////8P///////w////////////8P///////w//////////
|
||||
//8P///////w////////////8P///////w////////////8P///////w////////////8P///////w//
|
||||
//////////8P///////w////////////8P//////8P////////////8P//////8P//////////8A////
|
||||
////8P/////////w//////////8P///////wD///////////8P//////D/////////////8P////AP//
|
||||
////////////8P//8P////////////////8P8A//////////////////8A///////////////////wD/
|
||||
//////////////////D/////////////////////////////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
|
||||
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AP////9P///////4d/eP
|
||||
////+Hf//3j///h3////94//V/+I/4j/eP9X+P+IiIj3j/h/iIiIiI9//4cIiIiI/3H/c3+IiP/4gf8z
|
||||
d4j/j/9/9zf4f4eId//zOP+HiHf///F///h3/////4//////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
2683
EDOKA/Backup1/Systemadministration/Domains/frmDomainMitarbeiter.vb
Normal file
2683
EDOKA/Backup1/Systemadministration/Domains/frmDomainMitarbeiter.vb
Normal file
File diff suppressed because one or more lines are too long
@@ -0,0 +1,171 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainNiederlassung</value>
|
||||
</data>
|
||||
<data name="$this.Name1">
|
||||
<value>frmDomainNiederlassung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,215 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainNiederlassung
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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_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_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_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_niederlassung_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("@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_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))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainNiederlassung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainNiederlassung"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "niederlassung"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "edoka_dokumenterstellung" Then
|
||||
Me.DomainList.Columns(i).DefaultValue = True
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainObjektbezeichnung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,204 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmDomainObjektbezeichnung
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "Objektbezeichnung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("objektbezeichnungnr", "objektbezeichnungnr"), 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_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")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_objektbezeichnung_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_objektbezeichnung_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("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
||||
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_objektbezeichnung_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("@objektbezeichnungnr", System.Data.SqlDbType.Int, 4, "objektbezeichnungnr"))
|
||||
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_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", 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_objektbezeichnung_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_objektbezeichnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "objektbezeichnungnr", 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))
|
||||
'
|
||||
'frmDomainObjektbezeichnung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(624, 297)
|
||||
Me.Name = "frmDomainObjektbezeichnung"
|
||||
Me.Text = "Objektbezeichnung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "Objektbezeichnung"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,286 @@
|
||||
<?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="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>764, 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="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="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="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="DataTable1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</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>636, 54</value>
|
||||
</data>
|
||||
<data name="OpenFileDialog1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="OpenFileDialog1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>840, 17</value>
|
||||
</data>
|
||||
<data name="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>445, 30</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="MenuItem9.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>568, 30</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="C1TrueDBDropdown2.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="$this.Name">
|
||||
<value>frmDomainOfficeVorlage</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,699 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlDbType
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.IO
|
||||
Public Class frmDomainOfficeVorlage
|
||||
Inherits frmDomainEditor
|
||||
|
||||
|
||||
#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 DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents DataTable1 As System.Data.DataTable
|
||||
Friend WithEvents SqlConnection2 As System.Data.SqlClient.SqlConnection
|
||||
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 OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
|
||||
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 SqlConnection3 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents DataSet3 As System.Data.DataSet
|
||||
Friend WithEvents C1TrueDBDropdown2 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainOfficeVorlage))
|
||||
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()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
|
||||
Me.SqlConnection3 = 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.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
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.DataTable1 = New System.Data.DataTable()
|
||||
Me.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
|
||||
Me.DataSet3 = New System.Data.DataSet()
|
||||
Me.C1TrueDBDropdown2 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.C1TrueDBDropdown2, 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("vorlageid", "vorlageid"), 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("bcpt", "bcpt"), New System.Data.Common.DataColumnMapping("bcpl", "bcpl"), New System.Data.Common.DataColumnMapping("bcw", "bcw"), New System.Data.Common.DataColumnMapping("bch", "bch"), New System.Data.Common.DataColumnMapping("bchorizontal", "bchorizontal"), 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"), New System.Data.Common.DataColumnMapping("owner", "owner")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_office_vorlage_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection3
|
||||
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_bchorizontal", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bchorizontal", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpl", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpt", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpt", 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_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", 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_vorlageid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlageid", 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))
|
||||
'
|
||||
'SqlConnection3
|
||||
'
|
||||
Me.SqlConnection3.ConnectionString = "data source=shu00;initial catalog=edoka;persist security info=False;user id=sa;wo" & _
|
||||
"rkstation id=SHU00;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_office_vorlage_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection3
|
||||
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("@vorlageid", System.Data.SqlDbType.Int, 4, "vorlageid"))
|
||||
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("@bcpt", System.Data.SqlDbType.Int, 4, "bcpt"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpl", System.Data.SqlDbType.Int, 4, "bcpl"))
|
||||
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("@bchorizontal", System.Data.SqlDbType.Bit, 1, "bchorizontal"))
|
||||
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"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@owner", System.Data.SqlDbType.Int, 4, "owner"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_office_vorlage_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection3
|
||||
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_office_vorlage_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection3
|
||||
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("@vorlageid", System.Data.SqlDbType.Int, 4, "vorlageid"))
|
||||
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("@bcpt", System.Data.SqlDbType.Int, 4, "bcpt"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bcpl", System.Data.SqlDbType.Int, 4, "bcpl"))
|
||||
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("@bchorizontal", System.Data.SqlDbType.Bit, 1, "bchorizontal"))
|
||||
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("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@owner", System.Data.SqlDbType.Int, 4, "owner"))
|
||||
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_bchorizontal", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bchorizontal", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpl", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpl", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bcpt", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "bcpt", 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_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", 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_vorlageid", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlageid", 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))
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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.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(280, 16)
|
||||
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(224, 192)
|
||||
Me.C1TrueDBDropdown1.TabIndex = 5
|
||||
Me.C1TrueDBDropdown1.TabStop = False
|
||||
Me.C1TrueDBDropdown1.Text = "C1TrueDBDropdown1"
|
||||
Me.C1TrueDBDropdown1.Visible = False
|
||||
Me.C1TrueDBDropdown1.PropBag = "<?xml version=""1.0""?><Blob><DataCols><C1DataColumn Level=""0"" Caption=""Nr"" DataFie" & _
|
||||
"ld=""anwendungnr"" DataWidth=""20"" DefaultValue=""1"" NumberFormat=""Standard""><ValueI" & _
|
||||
"tems /></C1DataColumn><C1DataColumn Level=""0"" Caption=""Anwendung"" DataField=""bez" & _
|
||||
"eichnung"" DataWidth=""50""><ValueItems /></C1DataColumn></DataCols><Styles type=""C" & _
|
||||
"1.Win.C1TrueDBGrid.Design.ContextWrapper""><Data>Caption{AlignHorz:Center;}Normal" & _
|
||||
"{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style18{AlignHor" & _
|
||||
"z:Near;}Style19{AlignHorz:Near;}Style14{AlignHorz:Near;}Style15{AlignHorz:Near;}" & _
|
||||
"Style16{}Style17{}Style10{AlignHorz:Near;}Style11{}OddRow{}Style13{}Style12{}Hig" & _
|
||||
"hlightRow{ForeColor:HighlightText;BackColor:Highlight;}RecordSelector{AlignImage" & _
|
||||
":Center;}Footer{}Style21{}Style20{}Inactive{ForeColor:InactiveCaptionText;BackCo" & _
|
||||
"lor:InactiveCaption;}EvenRow{BackColor:Aqua;}Heading{Wrap:True;AlignVert:Center;" & _
|
||||
"Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}FilterBar{}St" & _
|
||||
"yle4{}Style9{}Style8{}Style5{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, " & _
|
||||
"0;AlignVert:Center;}Style7{}Style6{}Style1{}Style3{}Style2{}</Data></Styles><Spl" & _
|
||||
"its><C1.Win.C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" ColumnCaptionHe" & _
|
||||
"ight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" RecordSelector" & _
|
||||
"Width=""16"" RecordSelectors=""False"" VerticalScrollGroup=""1"" HorizontalScrollGroup" & _
|
||||
"=""1""><ClientRect>0, 0, 220, 188</ClientRect><internalCols><C1DropDisplayColumn><" & _
|
||||
"DCIdx>0</DCIdx><HeadingStyle parent=""Style2"" me=""Style14"" /><Style parent=""Style" & _
|
||||
"1"" me=""Style15"" /><FooterStyle parent=""Style3"" me=""Style16"" /><EditorStyle paren" & _
|
||||
"t=""Style5"" me=""Style17"" /><Visible>True</Visible><ColumnDivider>DarkGray,Single<" & _
|
||||
"/ColumnDivider><Height>15</Height></C1DropDisplayColumn><C1DropDisplayColumn><DC" & _
|
||||
"Idx>1</DCIdx><HeadingStyle parent=""Style2"" me=""Style18"" /><Style parent=""Style1""" & _
|
||||
" me=""Style19"" /><FooterStyle parent=""Style3"" me=""Style20"" /><EditorStyle parent=" & _
|
||||
"""Style5"" me=""Style21"" /><Visible>True</Visible><ColumnDivider>DarkGray,Single</C" & _
|
||||
"olumnDivider><Height>15</Height></C1DropDisplayColumn></internalCols><CaptionSty" & _
|
||||
"le parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><Ev" & _
|
||||
"enRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=" & _
|
||||
"""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group" & _
|
||||
""" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle" & _
|
||||
" parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4" & _
|
||||
""" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""Reco" & _
|
||||
"rdSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style" & _
|
||||
" parent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView></Splits><Name" & _
|
||||
"dStyles><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><St" & _
|
||||
"yle parent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style" & _
|
||||
" parent=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style " & _
|
||||
"parent=""Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style " & _
|
||||
"parent=""Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style paren" & _
|
||||
"t=""Heading"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style" & _
|
||||
" parent=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSpli" & _
|
||||
"ts>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelW" & _
|
||||
"idth><ClientArea>0, 0, 220, 188</ClientArea></Blob>"
|
||||
'
|
||||
'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", "anwendung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("anwendungnr", "anwendungnr"), 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_anwendung_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_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", 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_anwendung_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("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
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_anwendung_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_anwendung_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("@anwendungnr", System.Data.SqlDbType.Int, 4, "anwendungnr"))
|
||||
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("@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_anwendungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "anwendungnr", 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")
|
||||
Me.DataSet2.Tables.AddRange(New System.Data.DataTable() {Me.DataTable1})
|
||||
'
|
||||
'DataTable1
|
||||
'
|
||||
Me.DataTable1.TableName = "Table1"
|
||||
'
|
||||
'SqlConnection2
|
||||
'
|
||||
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka;integrated security=SSPI;persist security i" & _
|
||||
"nfo=False;workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.DefaultExt = "Doc"
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9})
|
||||
'
|
||||
'MenuItem9
|
||||
'
|
||||
Me.MenuItem9.Index = 0
|
||||
Me.MenuItem9.Text = "&Vorlagendateien bearbeiten"
|
||||
'
|
||||
'DataSet3
|
||||
'
|
||||
Me.DataSet3.DataSetName = "NewDataSet"
|
||||
Me.DataSet3.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'C1TrueDBDropdown2
|
||||
'
|
||||
Me.C1TrueDBDropdown2.AllowColMove = True
|
||||
Me.C1TrueDBDropdown2.AllowColSelect = True
|
||||
Me.C1TrueDBDropdown2.AllowFilter = True
|
||||
Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.C1TrueDBDropdown2.AllowSort = True
|
||||
Me.C1TrueDBDropdown2.AlternatingRows = False
|
||||
Me.C1TrueDBDropdown2.CaptionHeight = 17
|
||||
Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
|
||||
Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
|
||||
Me.C1TrueDBDropdown2.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.C1TrueDBDropdown2.FetchRowStyles = False
|
||||
Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
|
||||
Me.C1TrueDBDropdown2.LayoutFileName = ""
|
||||
Me.C1TrueDBDropdown2.LayoutName = ""
|
||||
Me.C1TrueDBDropdown2.LayoutURL = ""
|
||||
Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(-52, -102)
|
||||
Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
|
||||
GridLines2.Color = System.Drawing.Color.DarkGray
|
||||
GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
||||
Me.C1TrueDBDropdown2.RowDivider = GridLines2
|
||||
Me.C1TrueDBDropdown2.RowHeight = 15
|
||||
Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.C1TrueDBDropdown2.ScrollTips = False
|
||||
Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(208, 184)
|
||||
Me.C1TrueDBDropdown2.TabIndex = 8
|
||||
Me.C1TrueDBDropdown2.Text = "C1TrueDBDropdown2"
|
||||
Me.C1TrueDBDropdown2.Visible = False
|
||||
Me.C1TrueDBDropdown2.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, 204, 180</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, 204, 180</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'frmDomainOfficeVorlage
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(752, 305)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown2, Me.C1TrueDBDropdown1})
|
||||
Me.Name = "frmDomainOfficeVorlage"
|
||||
Me.Text = "cldDomainBerechtigung"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataTable1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1TrueDBDropdown2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableName = "office_vorlage"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Dim i As Integer
|
||||
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.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)
|
||||
For i = 0 To Me.DataSet2.Tables(0).Rows.Count
|
||||
|
||||
Next
|
||||
|
||||
Dim vi As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
Dim vi1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
vi.DisplayValue = "Word"
|
||||
vi.Value = 1
|
||||
Me.DomainList.Columns("anwendungnr").ValueItems.Values.Add(vi)
|
||||
vi1.DisplayValue = "Excel"
|
||||
vi1.Value = 2
|
||||
Me.DomainList.Columns("anwendungnr").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
Me.DomainList.Columns("anwendungnr").ValueItems.Values.Add(vi1)
|
||||
Me.DomainList.Columns("ANWENDUNGNR").ValueItems.Translate = True
|
||||
|
||||
'Me.C1TrueDBDropdown2.DataSource = Me.DataSet3
|
||||
'Me.C1TrueDBDropdown2.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
'Me.C1TrueDBDropdown2.AllowFilter = True
|
||||
'Me.C1TrueDBDropdown2.DisplayColumns(0).Width = 0
|
||||
'Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
|
||||
'Me.DomainList.Columns("owner").DropDown = Me.C1TrueDBDropdown2
|
||||
'Me.DomainList.Columns("owner").ValueItems.Translate = True
|
||||
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "idv_vorlage" Or _
|
||||
Me.DomainList.Columns(i).DataField = "absender_ersteller" Or _
|
||||
Me.DomainList.Columns(i).DataField = "idv_nativ" Or _
|
||||
Me.DomainList.Columns(i).DataField = "dokument_geschuetzt" Or _
|
||||
Me.DomainList.Columns(i).DataField = "bchorizontal" Or _
|
||||
Me.DomainList.Columns(i).DataField = "kopfzeile_generieren" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
|
||||
'Defaults setzen
|
||||
Me.DomainList.Columns("anwendungnr").DefaultValue = 1
|
||||
Me.DomainList.Columns("bcpt").DefaultValue = 793
|
||||
Me.DomainList.Columns("bcpl").DefaultValue = 360
|
||||
Me.DomainList.Columns("bcw").DefaultValue = 200
|
||||
Me.DomainList.Columns("bch").DefaultValue = 33
|
||||
Me.DomainList.Columns("bchorizontal").DefaultValue = True
|
||||
Me.DomainList.Columns("idv_vorlage").DefaultValue = True
|
||||
Me.DomainList.Columns("kopfzeile_generieren").DefaultValue = True
|
||||
Me.DomainList.Columns("owner").DefaultValue = Globals.MitarbeiterNr
|
||||
|
||||
|
||||
Me.Refresh()
|
||||
Cursor.Current = Cursors.Default
|
||||
|
||||
Dim ma As New DataTable()
|
||||
ma = Mitarbeiter_lesen()
|
||||
Me.DataSet3.Clear()
|
||||
Me.DataSet3.Tables.Add(ma)
|
||||
Me.DomainList.Columns("owner").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox
|
||||
For i = 0 To ma.Rows.Count - 1
|
||||
Dim v As New C1.Win.C1TrueDBGrid.ValueItem()
|
||||
v.DisplayValue = ma.Rows(i).Item(1)
|
||||
v.Value = ma.Rows(i).Item(0)
|
||||
Me.DomainList.Columns("owner").ValueItems.Values.Add(v)
|
||||
Next
|
||||
Me.DomainList.Columns("owner").ValueItems.Translate = True
|
||||
Me.DomainList.Splits(0).DisplayColumns("owner").FetchStyle = True
|
||||
Me.DomainList.Splits(0).DisplayColumns("owner").AutoComplete = True
|
||||
Me.DomainList.Splits(0).DisplayColumns("owner").AutoDropDown = True
|
||||
|
||||
|
||||
'Me.C1TrueDBDropdown2.DataSource = Me.DataSet3
|
||||
'Me.C1TrueDBDropdown2.DataMember = Me.DataSet3.Tables(0).TableName
|
||||
'Me.C1TrueDBDropdown2.DisplayColumns(0).Width = 0
|
||||
'Me.C1TrueDBDropdown2.Columns(0).Caption = "Owner"
|
||||
'Me.DomainList.Columns("owner").DropDown = Me.C1TrueDBDropdown2
|
||||
'Me.C1TrueDBDropdown2.DisplayColumns(1).AutoSize()
|
||||
'Me.DomainList.Splits(0).DisplayColumns("owner").FetchStyle = True
|
||||
'Me.DomainList.Splits(0).DisplayColumns("owner").AutoComplete = True
|
||||
'Me.DomainList.Splits(0).DisplayColumns("owner").AutoDropDown = True
|
||||
'Me.DomainList.Splits()
|
||||
|
||||
If UCase(Microsoft.VisualBasic.Left(Globals.conn.scoDBConnection.DataSource, 3)) = "TGT" Then
|
||||
' Me.MenuItem1.Enabled = True
|
||||
' Me.MenuItem2.Enabled = True
|
||||
' Me.MenuItem7.Enabled = True
|
||||
' Me.MenuItem8.Enabled = True
|
||||
Else
|
||||
' Me.MenuItem1.Enabled = False
|
||||
' Me.MenuItem2.Enabled = False
|
||||
' Me.MenuItem7.Enabled = False
|
||||
' Me.MenuItem8.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902) + ex.Message)
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
|
||||
Dim f As New FrmDomainOfficeVorlageDatei()
|
||||
f.MdiParent = Me.ParentForm
|
||||
f.vorlagenr = Me.DomainList.Columns(0).Value
|
||||
f.Show()
|
||||
End Sub
|
||||
|
||||
Public Function Mitarbeiter_lesen() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
scmCmdToExecute.CommandText = "dbo.sp_mitarbeiter_select"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub Domainlist_BeforeColEdit(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles DomainList.BeforeColEdit
|
||||
If Not DivFnkt.Check_Sysadmin_Stellvertreter(Me.DomainList.Columns("owner").Value) Then
|
||||
MyMsg.show_standardmessage(245, MsgBoxStyle.Information)
|
||||
e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainPhsischesArchiv</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,203 @@
|
||||
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainPhsischesArchiv
|
||||
Inherits frmDomainEditor
|
||||
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "physischesarchiv", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("physischesarchivnr", "physischesarchivnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_physischesarchiv_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_physischesarchiv_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("@physischesarchivnr", System.Data.SqlDbType.Int, 4, "physischesarchivnr"))
|
||||
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("@sprache", System.Data.SqlDbType.VarBinary, 2147483647, "sprache"))
|
||||
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"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_physischesarchiv_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("@physischesarchivnr", System.Data.SqlDbType.Int, 4, "physischesarchivnr"))
|
||||
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("@sprache", System.Data.SqlDbType.VarBinary, 2147483647, "sprache"))
|
||||
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_physischesarchivnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physischesarchivnr", 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.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))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_physischesarchiv_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_physischesarchivnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "physischesarchivnr", 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.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))
|
||||
'
|
||||
'frmDomainPhsischesArchiv
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainPhsischesArchiv"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomaint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Cursor.Current = Cursors.WaitCursor
|
||||
Me.TableName = "physischesarchiv"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Me.Refresh()
|
||||
Cursor.Current = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainProzess.resx
Normal file
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainProzess.resx
Normal file
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainProzess</value>
|
||||
</data>
|
||||
</root>
|
||||
203
EDOKA/Backup1/Systemadministration/Domains/frmDomainProzess.vb
Normal file
203
EDOKA/Backup1/Systemadministration/Domains/frmDomainProzess.vb
Normal file
@@ -0,0 +1,203 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainProzess
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "prozess", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("prozessnr", "prozessnr"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("erstellung", "erstellung"), New System.Data.Common.DataColumnMapping("verwendung", "verwendung"), 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_prozess_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_prozess_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("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
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("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung", System.Data.SqlDbType.Bit, 1, "erstellung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@verwendung", System.Data.SqlDbType.Bit, 1, "verwendung"))
|
||||
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_prozess_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("@prozessnr", System.Data.SqlDbType.Int, 4, "prozessnr"))
|
||||
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("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellung", System.Data.SqlDbType.Bit, 1, "erstellung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@verwendung", System.Data.SqlDbType.Bit, 1, "verwendung"))
|
||||
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_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", 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_erstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellung", 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_verwendung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "verwendung", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_prozess_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_prozessnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "prozessnr", 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_erstellung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "erstellung", 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_verwendung", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "verwendung", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainProzess
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainProzess"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "prozess"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Me.DomainList.Columns("erstellung").DefaultValue = True
|
||||
Me.DomainList.Columns("verwendung").DefaultValue = False
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,533 @@
|
||||
<?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="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>258, 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="MenuItem2.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="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>152, 17</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="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnExit.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</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="GroupBox1.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.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="Panel2.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSaveTeammitarbeiter.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSaveTeammitarbeiter.Image" type="System.Drawing.Bitmap, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAAAAAADODgAAxA4AABAAAAAQAAAAAAAA/wAA
|
||||
gP8AgAD/AICA/4AAAP+AAID/gIAA/4CAgP/AwMD/AAD//wD/AP8A/////wAA//8A/////wD//////yIi
|
||||
IiIiIiIiIgAAAAAAAAIgMwAAAIgDAiAzAAAAiAMCIDMAAACIAwIgMwAAAAADAiAzMzMzMzMCIDMAAAAA
|
||||
MwIgMIiIiIgDAiAwiIiIiAMCIDCIiIiIAwIgMIiIiIgDAiAwiIiIiAACIDCIiIiICAIgAAAAAAAAAiIi
|
||||
IiIiIiIi
|
||||
</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="GroupBox2.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.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="Panel1.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="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>463, 17</value>
|
||||
</data>
|
||||
<data name="SqlConnection5.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection5.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>633, 54</value>
|
||||
</data>
|
||||
<data name="SqlConnection4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="SqlConnection4.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>505, 54</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>377, 54</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>598, 17</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>249, 54</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>726, 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>823, 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, 128</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, 165</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, 128</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>172, 128</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>958, 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, 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>17, 91</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>402, 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>17, 165</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, 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="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="DomainList.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="C1TrueDBDropdown1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="resource.Images3" 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="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>17, 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>242, 45</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>242, 105</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>242, 45</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>242, 105</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>152, 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="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="$this.Name">
|
||||
<value>frmDomainMitarbeiter</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>
|
||||
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
|
||||
AAAA//8A/wAAAP8A/wD//wAA////AP/////////////////////////////w///////////////////w
|
||||
Dw//////////////////D//w////////////////8P///w//////////////8A/////w////////////
|
||||
/w///////w////////////D////////w//////////AP/////////w////////8P///////////w////
|
||||
///w////////////8P///////w////////////8P///////w////////////8P///////w//////////
|
||||
//8P///////w////////////8P///////w////////////8P///////w////////////8P///////w//
|
||||
//////////8P///////w////////////8P//////8P////////////8P//////8P//////////8A////
|
||||
////8P/////////w//////////8P///////wD///////////8P//////D/////////////8P////AP//
|
||||
////////////8P//8P////////////////8P8A//////////////////8A///////////////////wD/
|
||||
//////////////////D/////////////////////////////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
|
||||
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AP////9P///////4d/eP
|
||||
////+Hf//3j///h3////94//V/+I/4j/eP9X+P+IiIj3j/h/iIiIiI9//4cIiIiI/3H/c3+IiP/4gf8z
|
||||
d4j/j/9/9zf4f4eId//zOP+HiHf///F///h3/////4//////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,382 @@
|
||||
<?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="MainMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>123, 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="MenuItem2.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="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>17, 17</value>
|
||||
</data>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFpTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0xLjAuMzMw
|
||||
MC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZT
|
||||
eXN0ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMA
|
||||
AADCCQAAAk1TRnQBSQFMAgEBAwEAAQQBAAEEAQABEAEAARABAAT/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
|
||||
AAEHAQAD7AEAAgcCAg0AAQIGAAEDAf8YAAcHAQABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECBAAB
|
||||
7AEDAewB/xkAAQcEAAEHAQABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECAgABAwHsAQMB7AEDAf8Y
|
||||
AAUHAwABBwEAA+wBAAIHAQIBAAIDBgACBwEAAQMBAAECAQABAwHsAQMB7AEDAewB/wEAAewWAAUHAgAC
|
||||
BwEAAewBBwHsAQACBwECAQACAwkAAQMBAAECAQAB7AEDAewBAwHsAQMB/wEAAewYAAEHAQABBwMAAQcB
|
||||
AAPsAQACBwECAQAMAwEAAQIBAAEDAewBAwIAAewB/wEAAewWAAQHBgAD7AEAAgcBAgEAAgMIAAIDAQAB
|
||||
AgEAAewBAwHsAgcBAwH/AQAB7AEAAQYUAAYHAgABBwIAAuwBAAIHAQIBAAEDAQAIBwEAAQMBAAECAQAB
|
||||
AwHsAQMB7AEDAewB/wIAAQYF/hAABQcDAAEHAQAD7AEAAgcBAgEAAQMBAAgHAQABAwEAAQIBAAHsAQMB
|
||||
7AEDAewBAwH/AQABbQb+EAAGBwIAAQcCAALsAQACBwECAQABAwEACAcBAAEDAQABAgEAAQMB7AEDAewB
|
||||
AwHsAf8BAAHsAW0B/gRtEAAJBwUAAgcBAgEAAQMBAAgHAQABAwEAAQIBAAHsAQMB7AEDAewBAwH/AQAB
|
||||
7AEAAm0TABAHAQIBAAEDAQAIBwMAAQIBAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0TAAgHBAQEBwECAQAB
|
||||
AwEACAcBAAEHAQABAgEAAewBAwEHAf8B7AEAA+wWAAgHAQQCBwEEBAcBAg4AAQIBAAEHAf8B7AEABewW
|
||||
AAgHBAQEBxACIAABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wUAAfwBfwYAAfAB
|
||||
fwYAAcABfwcAAR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHxgACw==
|
||||
</value>
|
||||
</data>
|
||||
<data name="ToolBar1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnExit.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="ToolBtnSave.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>383, 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="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>633, 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>761, 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>152, 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>307, 54</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>176, 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>459, 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="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>329, 91</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="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>464, 91</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="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="txtBezeichnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtBeschreibung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cboSteuerbefehl.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="cbofeldTyp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="txtDatenherkunft.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="lblTyp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblSteuerbefehl.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblBeschreibung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblDatenherkunft.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblBezeichnung.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="DomainList.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="$this.Name">
|
||||
<value>frmDomainReportfeldregel</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>85</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>
|
||||
AAABAAIAICAQAAAAAADoAgAAJgAAABAQEAAAAAAAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
|
||||
AAAA//8A/wAAAP8A/wD//wAA////AP/////////////////////////////w///////////////////w
|
||||
Dw//////////////////D//w////////////////8P///w//////////////8A/////w////////////
|
||||
/w///////w////////////D////////w//////////AP/////////w////////8P///////////w////
|
||||
///w////////////8P///////w////////////8P///////w////////////8P///////w//////////
|
||||
//8P///////w////////////8P///////w////////////8P///////w////////////8P///////w//
|
||||
//////////8P///////w////////////8P//////8P////////////8P//////8P//////////8A////
|
||||
////8P/////////w//////////8P///////wD///////////8P//////D/////////////8P////AP//
|
||||
////////////8P//8P////////////////8P8A//////////////////8A///////////////////wD/
|
||||
//////////////////D/////////////////////////////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAoAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
|
||||
AACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AP////9P///////4d/eP
|
||||
////+Hf//3j///h3////94//V/+I/4j/eP9X+P+IiIj3j/h/iIiIiI9//4cIiIiI/3H/c3+IiP/4gf8z
|
||||
d4j/j/9/9zf4f4eId//zOP+HiHf///F///h3/////4//////////////////////////////AAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
File diff suppressed because it is too large
Load Diff
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainRolle.resx
Normal file
156
EDOKA/Backup1/Systemadministration/Domains/frmDomainRolle.resx
Normal file
@@ -0,0 +1,156 @@
|
||||
<?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>260, 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="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>362, 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="$this.Name">
|
||||
<value>frmDomainRolle</value>
|
||||
</data>
|
||||
</root>
|
||||
215
EDOKA/Backup1/Systemadministration/Domains/frmDomainRolle.vb
Normal file
215
EDOKA/Backup1/Systemadministration/Domains/frmDomainRolle.vb
Normal file
@@ -0,0 +1,215 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainRolle
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
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()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.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", "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("zugehoerigkeit", "zugehoerigkeit"), 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_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("@mandant", 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("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"))
|
||||
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("@zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, "zugehoerigkeit"))
|
||||
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))
|
||||
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))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", 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))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_zugehoerigkeit", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zugehoerigkeit", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainRolle
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(568, 277)
|
||||
Me.Name = "frmDomainRolle"
|
||||
Me.Text = "Rollen"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "rolle"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
Me.DomainList.Columns("sysadminrolle").DefaultValue = False
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,177 @@
|
||||
<?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="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 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="MenuItem4.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainSQLQueries</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,223 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainSQLQueries
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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 ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
<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.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
CType(Me.DataSet1, 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", "sqlqueries", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("querynr", "querynr"), New System.Data.Common.DataColumnMapping("query", "query"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), 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("mandantnr", "mandantnr")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_sqlqueries_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_querynr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "querynr", 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_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_query", System.Data.SqlDbType.VarChar, 8000, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "query", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=shu00;initial catalog=edoka;persist security info=False;user id=sa;wo" & _
|
||||
"rkstation id=SHU00;packet size=4096"
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_sqlqueries_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("@querynr", System.Data.SqlDbType.Int, 4, "querynr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@query", System.Data.SqlDbType.VarChar, 8000, "query"))
|
||||
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("@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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_sqlqueries_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_sqlqueries_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("@querynr", System.Data.SqlDbType.Int, 4, "querynr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@query", System.Data.SqlDbType.VarChar, 8000, "query"))
|
||||
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("@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("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_querynr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "querynr", 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_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_query", System.Data.SqlDbType.VarChar, 8000, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "query", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4})
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 0
|
||||
Me.MenuItem4.Text = "Übernehmen"
|
||||
'
|
||||
'frmDomainSQLQueries
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(104, -19)
|
||||
Me.Name = "frmDomainSQLQueries"
|
||||
Me.Text = "frmDomainSQLQueries"
|
||||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "sqlqueries"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
165
EDOKA/Backup1/Systemadministration/Domains/frmDomainSpalten.resx
Normal file
165
EDOKA/Backup1/Systemadministration/Domains/frmDomainSpalten.resx
Normal file
@@ -0,0 +1,165 @@
|
||||
<?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="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="ContextMenu1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 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="MenuItem4.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="$this.Name">
|
||||
<value>frmDomainSpalten</value>
|
||||
</data>
|
||||
</root>
|
||||
281
EDOKA/Backup1/Systemadministration/Domains/frmDomainSpalten.vb
Normal file
281
EDOKA/Backup1/Systemadministration/Domains/frmDomainSpalten.vb
Normal file
@@ -0,0 +1,281 @@
|
||||
Imports System
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainSpalten
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
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.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
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()
|
||||
CType(Me.DataSet1, 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", "spalten", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("eintragnr", "eintragnr"), New System.Data.Common.DataColumnMapping("tabelle", "tabelle"), New System.Data.Common.DataColumnMapping("tabellenspalte", "tabellenspalte"), New System.Data.Common.DataColumnMapping("spalte", "spalte"), New System.Data.Common.DataColumnMapping("Readonly", "Readonly"), New System.Data.Common.DataColumnMapping("alsHacken", "alsHacken"), New System.Data.Common.DataColumnMapping("Breite", "Breite"), New System.Data.Common.DataColumnMapping("Reihenfolge", "Reihenfolge"), New System.Data.Common.DataColumnMapping("tiptext", "tiptext"), 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("mandantnr", "mandantnr")})})
|
||||
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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4})
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 0
|
||||
Me.MenuItem4.Text = "Daten aus Tabelle generieren"
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_spalten_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_spalten_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("@eintragnr", System.Data.SqlDbType.Int, 4, "eintragnr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabelle", System.Data.SqlDbType.VarChar, 255, "tabelle"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabellenspalte", System.Data.SqlDbType.VarChar, 255, "tabellenspalte"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@spalte", System.Data.SqlDbType.VarChar, 255, "spalte"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Readonly", System.Data.SqlDbType.Bit, 1, "Readonly"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@alsHacken", System.Data.SqlDbType.Bit, 1, "alsHacken"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Breite", System.Data.SqlDbType.Int, 4, "Breite"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tiptext", System.Data.SqlDbType.VarChar, 255, "tiptext"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_spalten_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("@eintragnr", System.Data.SqlDbType.Int, 4, "eintragnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabelle", System.Data.SqlDbType.VarChar, 255, "tabelle"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tabellenspalte", System.Data.SqlDbType.VarChar, 255, "tabellenspalte"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@spalte", System.Data.SqlDbType.VarChar, 255, "spalte"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Readonly", System.Data.SqlDbType.Bit, 1, "Readonly"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@alsHacken", System.Data.SqlDbType.Bit, 1, "alsHacken"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Breite", System.Data.SqlDbType.Int, 4, "Breite"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Reihenfolge", System.Data.SqlDbType.Int, 4, "Reihenfolge"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@tiptext", System.Data.SqlDbType.VarChar, 255, "tiptext"))
|
||||
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("@Param1", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Breite", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Breite", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Readonly", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Readonly", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.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_alsHacken", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "alsHacken", 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_spalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "spalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabelle", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabelle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabellenspalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabellenspalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tiptext", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptext", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_spalten_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_eintragnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eintragnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Breite", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Breite", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Readonly", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Readonly", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.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_alsHacken", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "alsHacken", 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_spalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "spalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabelle", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabelle", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tabellenspalte", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tabellenspalte", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_tiptext", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptext", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainSpalten
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(680, 277)
|
||||
Me.Name = "frmDomainSpalten"
|
||||
Me.Text = "Spalten"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainSpalten_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.DomainList.AllowDelete = True
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
Me.TableName = "Spalten"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Dim i As Integer
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "Readonly" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
|
||||
|
||||
Dim spalten As New EDOKA.MySpaltenTitel()
|
||||
spalten.load_data()
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
||||
Dim f As New frmSysadminTableSelector()
|
||||
Dim tablename As String
|
||||
tablename = (f.get_tablename())
|
||||
If tablename = "" Then Exit Sub
|
||||
Generate_Data(tablename)
|
||||
End Sub
|
||||
|
||||
Private Sub Generate_Data(ByVal tablename As String)
|
||||
Me.SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Dim dttable As New DataTable(tablename)
|
||||
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
|
||||
scmCmdToExecute.Connection.Open()
|
||||
scmCmdToExecute.ExecuteNonQuery()
|
||||
Return
|
||||
Catch ex As Exception
|
||||
Throw New Exception(MyMsg.Get_Meldungstext(903), ex)
|
||||
Finally
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
scmCmdToExecute.Connection.Close()
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainStatusBezeichnung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,195 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainStatusBezeichnung
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "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.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_status_bezeichnung_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_status_bezeichnung_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("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
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_status_bezeichnung_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("@status_bezeichnungnr", System.Data.SqlDbType.Int, 4, "status_bezeichnungnr"))
|
||||
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_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.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_status_bezeichnung_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_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.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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainStatusBezeichnung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(648, 357)
|
||||
Me.Name = "frmDomainStatusBezeichnung"
|
||||
Me.Text = "frmDomainStatusBezeichnung"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "status_bezeichnung"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainStatusTyp</value>
|
||||
</data>
|
||||
</root>
|
||||
195
EDOKA/Backup1/Systemadministration/Domains/frmDomainStatusTyp.vb
Normal file
195
EDOKA/Backup1/Systemadministration/Domains/frmDomainStatusTyp.vb
Normal file
@@ -0,0 +1,195 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainStatusTyp
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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))
|
||||
'
|
||||
'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, 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.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"))
|
||||
'
|
||||
'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, 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.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, 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.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))
|
||||
'
|
||||
'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, 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.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))
|
||||
'
|
||||
'frmDomainStatusTyp
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainStatusTyp"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "statustyp"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,194 @@
|
||||
<?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>299, 17</value>
|
||||
</data>
|
||||
<data name="DataSet1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>427, 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="drpMiatarbeiter.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="DateTimePicker1.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>524, 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="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="MenuItem4.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>430, 54</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="mnuLoeschen.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDoaminStellvertretung</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,580 @@
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class frmDoaminStellvertretung
|
||||
Inherits EDOKAApp.frmDomainEditor
|
||||
|
||||
#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 drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents mnuLoeschen As System.Windows.Forms.MenuItem
|
||||
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()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDoaminStellvertretung))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
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.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||
Me.mnuLoeschen = New System.Windows.Forms.MenuItem()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.drpMiatarbeiter, 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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'drpMiatarbeiter
|
||||
'
|
||||
Me.drpMiatarbeiter.AllowColMove = True
|
||||
Me.drpMiatarbeiter.AllowColSelect = True
|
||||
Me.drpMiatarbeiter.AllowFilter = True
|
||||
Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.drpMiatarbeiter.AllowSort = True
|
||||
Me.drpMiatarbeiter.AlternatingRows = False
|
||||
Me.drpMiatarbeiter.CaptionHeight = 17
|
||||
Me.drpMiatarbeiter.ColumnCaptionHeight = 17
|
||||
Me.drpMiatarbeiter.ColumnFooterHeight = 17
|
||||
Me.drpMiatarbeiter.ColumnHeaders = False
|
||||
Me.drpMiatarbeiter.DeadAreaBackColor = System.Drawing.Color.Empty
|
||||
Me.drpMiatarbeiter.FetchRowStyles = False
|
||||
Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
||||
Me.drpMiatarbeiter.LayoutFileName = ""
|
||||
Me.drpMiatarbeiter.LayoutName = ""
|
||||
Me.drpMiatarbeiter.LayoutURL = ""
|
||||
Me.drpMiatarbeiter.Location = New System.Drawing.Point(272, 120)
|
||||
Me.drpMiatarbeiter.Name = "drpMiatarbeiter"
|
||||
GridLines1.Color = System.Drawing.Color.DarkGray
|
||||
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.None
|
||||
Me.drpMiatarbeiter.RowDivider = GridLines1
|
||||
Me.drpMiatarbeiter.RowHeight = 15
|
||||
Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.drpMiatarbeiter.ScrollTips = False
|
||||
Me.drpMiatarbeiter.Size = New System.Drawing.Size(72, 216)
|
||||
Me.drpMiatarbeiter.TabIndex = 8
|
||||
Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1"
|
||||
Me.drpMiatarbeiter.Visible = False
|
||||
Me.drpMiatarbeiter.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{}Footer{}Caption{AlignHorz:Cen" & _
|
||||
"ter;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style9{}O" & _
|
||||
"ddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
|
||||
"ue;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Co" & _
|
||||
"ntrol;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</Data" & _
|
||||
"></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="""" CaptionHeight=""17"" C" & _
|
||||
"olumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeStyle=""DottedCellBorder"" " & _
|
||||
"RecordSelectorWidth=""16"" RecordSelectors=""False"" VerticalScrollGroup=""1"" Horizon" & _
|
||||
"talScrollGroup=""1""><ClientRect>0, 0, 68, 212</ClientRect><CaptionStyle parent=""S" & _
|
||||
"tyle2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowStyle p" & _
|
||||
"arent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style13"" />" & _
|
||||
"<FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""Style1" & _
|
||||
"2"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent=""Hig" & _
|
||||
"hlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><OddRowS" & _
|
||||
"tyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" " & _
|
||||
"me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent=""Nor" & _
|
||||
"mal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.DropdownView></Splits><NamedStyles><Sty" & _
|
||||
"le parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""" & _
|
||||
"Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Hea" & _
|
||||
"ding"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Norm" & _
|
||||
"al"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Norm" & _
|
||||
"al"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" " & _
|
||||
"me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Cap" & _
|
||||
"tion"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSp" & _
|
||||
"lits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea" & _
|
||||
">0, 0, 68, 212</ClientArea></Blob>"
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
||||
Me.DateTimePicker1.Location = New System.Drawing.Point(408, 238)
|
||||
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(88, 20)
|
||||
Me.DateTimePicker1.TabIndex = 10
|
||||
Me.DateTimePicker1.Visible = False
|
||||
'
|
||||
'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", "stellvertretungen", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("nreintrag", "nreintrag"), New System.Data.Common.DataColumnMapping("vertretener", "vertretener"), New System.Data.Common.DataColumnMapping("vertrater", "vertrater"), 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("datumvon", "datumvon"), New System.Data.Common.DataColumnMapping("datumbis", "datumbis"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("Typ", "Typ")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_stellvertretungenDomain_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_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Typ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Typ", 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_datumbis", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datumbis", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datumvon", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datumvon", 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_mutierer", System.Data.SqlDbType.VarChar, 10, 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_vertrater", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrater", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertretener", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertretener", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "[pv_stellvertretungenDomain_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("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertretener", System.Data.SqlDbType.Int, 4, "vertretener"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrater", System.Data.SqlDbType.Int, 4, "vertrater"))
|
||||
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.VarChar, 10, "mutierer"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datumvon", System.Data.SqlDbType.DateTime, 8, "datumvon"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datumbis", System.Data.SqlDbType.DateTime, 8, "datumbis"))
|
||||
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("@Typ", System.Data.SqlDbType.Int, 4, "Typ"))
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_stellvertretungenDomain_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_stellvertretungenDomain_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("@nreintrag", System.Data.SqlDbType.Int, 4, "nreintrag"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertretener", System.Data.SqlDbType.Int, 4, "vertretener"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@vertrater", System.Data.SqlDbType.Int, 4, "vertrater"))
|
||||
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.VarChar, 10, "mutierer"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datumvon", System.Data.SqlDbType.DateTime, 8, "datumvon"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datumbis", System.Data.SqlDbType.DateTime, 8, "datumbis"))
|
||||
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("@Typ", System.Data.SqlDbType.Int, 4, "Typ"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_nreintrag", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "nreintrag", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Typ", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Typ", 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_datumbis", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datumbis", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datumvon", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datumvon", 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_mutierer", System.Data.SqlDbType.VarChar, 10, 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_vertrater", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertrater", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vertretener", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vertretener", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = -1
|
||||
Me.MenuItem4.Text = "Löschen"
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuLoeschen})
|
||||
'
|
||||
'mnuLoeschen
|
||||
'
|
||||
Me.mnuLoeschen.Index = 0
|
||||
Me.mnuLoeschen.Text = "Löschen"
|
||||
'
|
||||
'frmDoaminStellvertretung
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(904, 497)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.drpMiatarbeiter, Me.DateTimePicker1})
|
||||
Me.Name = "frmDoaminStellvertretung"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " Deklarationen "
|
||||
Dim m_bIgnoreChange As Boolean = False
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Eigenschaften "
|
||||
#End Region
|
||||
|
||||
#Region " Formular Funktionen "
|
||||
Private Sub frmDoaminStellvertretung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
Me.TableName = "StellvertretungDomain"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1, Me.TableName)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
Me.DomainList.ContextMenu = Me.ContextMenu1
|
||||
Me.DomainList.AllowDelete = True
|
||||
'===============================================================================
|
||||
'Grid Formatieren
|
||||
'===============================================================================
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
load_Mitarbeiter()
|
||||
DivFnkt.GrdAlign(Me.DomainList, "vertretener", C1.Win.C1TrueDBGrid.AlignHorzEnum.Near)
|
||||
DivFnkt.GrdAlign(Me.DomainList, "vertrater", C1.Win.C1TrueDBGrid.AlignHorzEnum.Near)
|
||||
DivFnkt.GrdAlign(Me.DomainList, "mutierer", C1.Win.C1TrueDBGrid.AlignHorzEnum.Near)
|
||||
DomainList.Splits(0).DisplayColumns("mutierer").Button = False
|
||||
|
||||
DomainList.Splits(0).DisplayColumns("vertretener").FilterButton = True
|
||||
DomainList.Splits(0).DisplayColumns("vertrater").FilterButton = True
|
||||
DomainList.Splits(0).DisplayColumns("mutierer").FilterButton = True
|
||||
|
||||
DomainList.Splits(0).DisplayColumns("vertretener").AutoComplete = True
|
||||
DomainList.Splits(0).DisplayColumns("vertrater").AutoComplete = True
|
||||
DomainList.Splits(0).DisplayColumns("mutierer").AutoComplete = True
|
||||
DomainList.Columns("datumvon").DefaultValue = Now()
|
||||
DomainList.Columns("datumbis").DefaultValue = Now()
|
||||
|
||||
' DomainList.Columns("datumvon").NumberFormat = "dd.MM.yyyy"
|
||||
' DomainList.Columns("datumbis").NumberFormat = "dd.MM.yyyy"
|
||||
' DomainList.Columns("datumvon").EditMask = "99.99.9999"
|
||||
' DomainList.Columns("datumbis").EditMask = "99.99.9999"
|
||||
Me.WindowState = FormWindowState.Maximized
|
||||
DomainList.RowHeight = Me.DateTimePicker1.Height
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmDoaminStellvertretung_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
Dim col As Integer
|
||||
col = Me.DomainList.Col
|
||||
Me.DomainList.Col = 1
|
||||
Me.DomainList.Col = col
|
||||
|
||||
If Me.DataSet1.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
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Menu Funktionen "
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
Private Sub mnuLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLoeschen.Click
|
||||
Dim Arr() As Integer
|
||||
Dim row As Long
|
||||
If Me.DomainList.Splits(0).Rows.Count > 0 Then
|
||||
Dim iCount As Integer
|
||||
Try
|
||||
'****** Aufbereiten der markierten Zeilen
|
||||
ReDim Arr(Me.DomainList.SelectedRows.Count)
|
||||
For Each row In DomainList.SelectedRows
|
||||
Arr(iCount) = row
|
||||
iCount += 1
|
||||
Next
|
||||
'****** Löschen der markierten Zeilen.
|
||||
'****** Letzte Zeile wird zuerst gelöscht
|
||||
For iCount = UBound(Arr) - 1 To 0 Step -1
|
||||
DomainList.Bookmark = Arr(iCount)
|
||||
DomainList.Delete()
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Kontrol Funktionen "
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Try
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub DateTimePicker1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.TextChanged
|
||||
Try
|
||||
|
||||
If m_bIgnoreChange Then
|
||||
Exit Sub
|
||||
End If
|
||||
' get the column
|
||||
Dim col As C1.Win.C1TrueDBGrid.C1DataColumn = Me.DomainList.Splits(0).DisplayColumns(Me.DomainList.Col).DataColumn
|
||||
' update the the grid
|
||||
|
||||
Select Case col.DataField
|
||||
Case "datumvon"
|
||||
Me.DomainList.Columns("datumvon").Text = DateTimePicker1.Text
|
||||
Case "datumbis"
|
||||
Me.DomainList.Columns("datumbis").Text = DateTimePicker1.Text
|
||||
End Select
|
||||
'col.Text = Me.DateTimePicker1.Text
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mutiert_am" Then Me.DomainList.Columns(i).Value = Now
|
||||
If Me.DomainList.Columns(i).DataField = "mutierer" Then Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub domainlist_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DomainList.RowColChange
|
||||
Try
|
||||
Me.ActiveControl = Me.ToolBar1
|
||||
Me.ActiveControl = Me.DomainList
|
||||
Me.DomainList.UpdateData()
|
||||
Dim col As C1.Win.C1TrueDBGrid.C1DataColumn = Me.DomainList.Splits(0).DisplayColumns(Me.DomainList.Col).DataColumn
|
||||
Select Case col.DataField
|
||||
Case "datumvon", "datumbis"
|
||||
' get the area of the cell
|
||||
Dim r As Rectangle = Me.DomainList.Splits(0).GetCellBounds(Me.DomainList.Row, Me.DomainList.Col)
|
||||
' change to screen coordiantes
|
||||
r = Me.DomainList.RectangleToScreen(r)
|
||||
' map the screen coordinates to the forms client coordinates
|
||||
Me.DateTimePicker1.Location = Me.RectangleToClient(r).Location
|
||||
' size it to fit inside the cell
|
||||
Me.DateTimePicker1.Size = r.Size
|
||||
' default the datetimepicker to the date in the cell
|
||||
m_bIgnoreChange = True
|
||||
If col.CellValue(Me.DomainList.Row) Is System.DBNull.Value Then
|
||||
Me.DateTimePicker1.Value = Now
|
||||
Else
|
||||
If Not IsDate(col.CellValue(Me.DomainList.Row)) Then
|
||||
Me.DateTimePicker1.Value = Now
|
||||
Else
|
||||
Me.DateTimePicker1.Value = col.CellValue(Me.DomainList.Row)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
m_bIgnoreChange = False
|
||||
' display it
|
||||
Me.DateTimePicker1.Visible = True
|
||||
|
||||
Me.DateTimePicker1.Show()
|
||||
Me.DateTimePicker1.BringToFront()
|
||||
Me.ActiveControl = Me.DateTimePicker1
|
||||
Case Else
|
||||
Me.DateTimePicker1.Visible = False
|
||||
End Select
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Private Sub DomainList_BeforeColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles DomainList.BeforeColUpdate
|
||||
Try
|
||||
Dim col As C1.Win.C1TrueDBGrid.C1DataColumn = Me.DomainList.Splits(0).DisplayColumns(Me.DomainList.Col).DataColumn
|
||||
Select Case col.DataField
|
||||
Case "datumvon"
|
||||
If Not IsDate(Me.DomainList.Columns("datumvon").Text) Then
|
||||
e.Cancel = True
|
||||
Me.DomainList.Columns("datumvon").Value = DateTimePicker1.Value
|
||||
End If
|
||||
Case "datumbis"
|
||||
If Not IsDate(Me.DomainList.Columns("datumbis").Text) Then
|
||||
e.Cancel = True
|
||||
Me.DomainList.Columns("datumbis").Text = DateTimePicker1.Value
|
||||
End If
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
If Me.drpMiatarbeiter.Bookmark = 0 Then
|
||||
'wenn der Mitarbeiter nicht im Drp vorhanden ist(Handeingabe) wird das Feld nicht abgefuellt
|
||||
e.Cancel = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Data Funktionen "
|
||||
Private Function Save_Data() As Boolean
|
||||
Dim col As Integer
|
||||
Save_Data = True
|
||||
Try
|
||||
col = Me.DomainList.Col
|
||||
Me.DomainList.Col = 1
|
||||
SqlDataAdapter1.Update(Me.DataSet1, Me.TableName)
|
||||
Me.DomainList.Col = col
|
||||
Catch exsql As SqlException
|
||||
MsgBox(exsql.Message)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub load_Mitarbeiter()
|
||||
Dim iCount As Integer
|
||||
Try
|
||||
conn.OpenConnection()
|
||||
Dim t As DataTable
|
||||
'===============================================================================
|
||||
'DRP Daten
|
||||
'===============================================================================
|
||||
t = Generic_Select(17)
|
||||
|
||||
Me.drpMiatarbeiter.DataSource = t
|
||||
Me.drpMiatarbeiter.ListField = "FullName"
|
||||
Me.drpMiatarbeiter.DataField = "mitarbeiternr"
|
||||
Me.drpMiatarbeiter.ValueTranslate = True
|
||||
Me.DomainList.Columns("mutierer").DropDown = Me.drpMiatarbeiter
|
||||
|
||||
Me.DomainList.Columns("vertretener").DropDown = Me.drpMiatarbeiter
|
||||
Me.DomainList.Columns("vertrater").DropDown = Me.drpMiatarbeiter
|
||||
|
||||
'===============================================================================
|
||||
'DRP Formatierungen
|
||||
'===============================================================================
|
||||
For iCount = 0 To Me.DomainList.Splits(0).DisplayColumns.Count - 1
|
||||
If Me.DomainList.Splits(0).DisplayColumns(iCount).DataColumn.DataField = "vertretener" Then
|
||||
Me.drpMiatarbeiter.Width = Me.DomainList.Splits(0).DisplayColumns(iCount).Width
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
drpMiatarbeiter.DisplayColumns(0).Visible = False
|
||||
drpMiatarbeiter.DisplayColumns(1).Width = Me.drpMiatarbeiter.Width
|
||||
|
||||
conn.CloseConnection(True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Extra Funktionen "
|
||||
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
|
||||
Select Case typ
|
||||
Case 17
|
||||
'Mitarbeiter
|
||||
scmCmdToExecute.CommandText = "dbo.SP_ValueSelect"
|
||||
|
||||
Case Else
|
||||
End Select
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
Select Case typ
|
||||
Case 17
|
||||
'Mitarbeiter
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&"))
|
||||
Case Else
|
||||
End Select
|
||||
If typ = 1 Then
|
||||
End If
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="$this.Name">
|
||||
<value>frmDomainSteuerbefehl</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,204 @@
|
||||
|
||||
|
||||
Public Class frmDomainSteuerbefehl
|
||||
Inherits EDOKAApp.frmDomainEditor
|
||||
|
||||
#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
|
||||
<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()
|
||||
CType(Me.DataSet1, 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", "Steuerbefehle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("feldsteuerungNr", "feldsteuerungNr"), New System.Data.Common.DataColumnMapping("steuerung", "steuerung"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), 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
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_Steuerbefehl_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_Steuerbefehl_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("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, "feldsteuerungNr"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@steuerung", System.Data.SqlDbType.VarChar, 50, "steuerung"))
|
||||
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("@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"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_Steuerbefehl_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("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, "feldsteuerungNr"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@steuerung", System.Data.SqlDbType.VarChar, 50, "steuerung"))
|
||||
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("@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_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldsteuerungNr", 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_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))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_steuerung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "steuerung", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_Steuerbefehl_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_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldsteuerungNr", 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_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))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_steuerung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "steuerung", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "data source=TGTSQLEDOKABSSF;initial catalog=edoka;integrated security=SSPI;persis" & _
|
||||
"t security info=False;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
|
||||
"=4096"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'frmDomainSteuerbefehl
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(592, 360)
|
||||
Me.Name = "frmDomainSteuerbefehl"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "Steuerbefehle"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "odbc" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
If Me.DomainList.Columns(i).DataField = "oledb" Then Me.DomainList.Columns(i).DefaultValue = True
|
||||
If Me.DomainList.Columns(i).DataField = "sqlclient" Then Me.DomainList.Columns(i).DefaultValue = False
|
||||
Next
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmDomainSteuerbefehl_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainSysadminfuntkion</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,232 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainSysadminfuntkion
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "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("ftop", "ftop"), New System.Data.Common.DataColumnMapping("fleft", "fleft"), New System.Data.Common.DataColumnMapping("fwidth", "fwidth"), New System.Data.Common.DataColumnMapping("fheight", "fheight"), 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.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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pf_sysadminfunktion_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 = "[pf_sysadminfunktion_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("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
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("@ParentID", System.Data.SqlDbType.Int, 4, "ParentID"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sort", System.Data.SqlDbType.Int, 4, "Sort"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndex", System.Data.SqlDbType.Int, 4, "ImageIndex"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndexOpen", System.Data.SqlDbType.Int, 4, "ImageIndexOpen"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ftop", System.Data.SqlDbType.Int, 4, "ftop"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fleft", System.Data.SqlDbType.Int, 4, "fleft"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fwidth", System.Data.SqlDbType.Int, 4, "fwidth"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fheight", System.Data.SqlDbType.Int, 4, "fheight"))
|
||||
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("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
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 = "[pf_sysadminfunktion_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("@sysadminfnktnr", System.Data.SqlDbType.Int, 4, "sysadminfnktnr"))
|
||||
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("@ParentID", System.Data.SqlDbType.Int, 4, "ParentID"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Sort", System.Data.SqlDbType.Int, 4, "Sort"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndex", System.Data.SqlDbType.Int, 4, "ImageIndex"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ImageIndexOpen", System.Data.SqlDbType.Int, 4, "ImageIndexOpen"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ftop", System.Data.SqlDbType.Int, 4, "ftop"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fleft", System.Data.SqlDbType.Int, 4, "fleft"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fwidth", System.Data.SqlDbType.Int, 4, "fwidth"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@fheight", System.Data.SqlDbType.Int, 4, "fheight"))
|
||||
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("@sprache", System.Data.SqlDbType.Int, 4, "sprache"))
|
||||
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_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.SqlUpdateCommand1.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.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_fheight", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fheight", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fleft", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fleft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ftop", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ftop", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fwidth", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fwidth", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pf_sysadminfunktion_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_sysadminfnktnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sysadminfnktnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.SqlDeleteCommand1.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.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_fheight", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fheight", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fleft", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fleft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ftop", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ftop", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_fwidth", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "fwidth", 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_sprache", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "sprache", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainSysadminfuntkion
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(728, 409)
|
||||
Me.Name = "frmDomainSysadminfuntkion"
|
||||
Me.Text = "Systemmenu-Einträge"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "sysadminfunktion"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
|
||||
' 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.SqlConnection1.Open()
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
239
EDOKA/Backup1/Systemadministration/Domains/frmDomainTeam.resx
Normal file
239
EDOKA/Backup1/Systemadministration/Domains/frmDomainTeam.resx
Normal file
@@ -0,0 +1,239 @@
|
||||
<?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="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>676, 39</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>553, 38</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>68, 21</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>68, 21</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>68, 21</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>68, 21</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="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="$this.Name">
|
||||
<value>frmDomainTeam</value>
|
||||
</data>
|
||||
</root>
|
||||
346
EDOKA/Backup1/Systemadministration/Domains/frmDomainTeam.vb
Normal file
346
EDOKA/Backup1/Systemadministration/Domains/frmDomainTeam.vb
Normal file
@@ -0,0 +1,346 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainTeam
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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 DataSet2 As System.Data.DataSet
|
||||
Friend WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlDeleteCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand2 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainTeam))
|
||||
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.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = 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.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, 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", "team", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("teamnr", "teamnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("kostenstellenr", "kostenstellenr"), 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_team_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_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_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_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_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))
|
||||
'
|
||||
'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_team_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("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
||||
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("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
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_team_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_team_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("@teamnr", System.Data.SqlDbType.Int, 4, "teamnr"))
|
||||
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("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
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_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_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_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_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))
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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", "kostenstelle", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("kostenstellenr", "kostenstellenr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_kostenstelle_aktiv_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_kostenstellenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kostenstellenr", 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))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_kostenstelle_aktiv_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("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_kostetenstelle_aktiv_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_kostenstelle_aktiv_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("@kostenstellenr", System.Data.SqlDbType.Int, 4, "kostenstellenr"))
|
||||
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("@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.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))
|
||||
'
|
||||
'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.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(312, 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(192, 240)
|
||||
Me.C1TrueDBDropdown1.TabIndex = 5
|
||||
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{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}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;}Style9{}Od" & _
|
||||
"dRow{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Borde" & _
|
||||
"r:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style8{}Style10{Al" & _
|
||||
"ignHorz:Near;}Style11{}Style12{}Style13{}Style1{}</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, 188, 236</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, 188, 236</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'frmDomainTeam
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown1})
|
||||
Me.Name = "frmDomainTeam"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "team"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
'Kostenstelle
|
||||
' 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.C1TrueDBDropdown1.DataSource = Me.DataSet2
|
||||
Me.C1TrueDBDropdown1.DataMember = "kostenstelle"
|
||||
Me.C1TrueDBDropdown1.Columns(0).Caption = MyMsg.Get_Meldungstext(7006)
|
||||
Me.C1TrueDBDropdown1.Columns(1).Caption = MyMsg.Get_Meldungstext(7007)
|
||||
Me.C1TrueDBDropdown1.DisplayColumns(0).Width = 20
|
||||
Me.DomainList.Columns("kostenstellenr").DropDown = Me.C1TrueDBDropdown1
|
||||
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,156 @@
|
||||
<?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="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="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="$this.Name">
|
||||
<value>frmDomainTipTexte</value>
|
||||
</data>
|
||||
</root>
|
||||
211
EDOKA/Backup1/Systemadministration/Domains/frmDomainTipTexte.vb
Normal file
211
EDOKA/Backup1/Systemadministration/Domains/frmDomainTipTexte.vb
Normal file
@@ -0,0 +1,211 @@
|
||||
Imports System.ComponentModel
|
||||
Public Class frmDomainTipTexte
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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()
|
||||
CType(Me.DataSet1, 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", "tiptexte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("tiptextnr", "tiptextnr"), New System.Data.Common.DataColumnMapping("sprache", "sprache"), New System.Data.Common.DataColumnMapping("inhalt", "inhalt"), New System.Data.Common.DataColumnMapping("forciert", "forciert"), 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("mandantnr", "mandantnr")})})
|
||||
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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_tiptexte_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_tiptexte_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("@tiptextnr", System.Data.SqlDbType.Int, 4, "tiptextnr"))
|
||||
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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@forciert", System.Data.SqlDbType.Bit, 1, "forciert"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_tiptexte_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("@tiptextnr", System.Data.SqlDbType.Int, 4, "tiptextnr"))
|
||||
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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@forciert", System.Data.SqlDbType.Bit, 1, "forciert"))
|
||||
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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
|
||||
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_tiptextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptextnr", 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_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_forciert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forciert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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_tiptexte_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_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_tiptextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "tiptextnr", 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_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_forciert", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forciert", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", 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))
|
||||
'
|
||||
'frmDomainTipTexte
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(704, 273)
|
||||
Me.Name = "frmDomainTipTexte"
|
||||
Me.Text = "Hint-Texte"
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMeldungstexte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim i As Integer
|
||||
Me.TableName = "tiptexte"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
'Präsentation von Readonly
|
||||
If Me.DomainList.Columns(i).DataField = "forciert" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).DefaultValue = False
|
||||
End If
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -0,0 +1,227 @@
|
||||
<?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="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="DataSet2.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>485, 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="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>582, 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="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="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="$this.Name">
|
||||
<value>frmDomainVorlagenfeldregel</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,455 @@
|
||||
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDomainVorlagenfeldregel
|
||||
Inherits frmDomainEditor
|
||||
Dim coltransferkey As New Collection()
|
||||
Property cTransferkey() As Collection
|
||||
Get
|
||||
Return coltransferkey
|
||||
End Get
|
||||
Set(ByVal Value As Collection)
|
||||
coltransferkey = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#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 DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents DataSet2 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 C1TrueDBDropdown1 As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
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()
|
||||
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDomainVorlagenfeldregel))
|
||||
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = New System.Data.DataSet()
|
||||
Me.DataSet2 = 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.C1TrueDBDropdown1 = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown()
|
||||
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()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet2, 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", "vorlagenfeldregel", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("vorlagenfeldregelnr", "vorlagenfeldregelnr"), 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("standard", "standard"), New System.Data.Common.DataColumnMapping("obbezeichnung", "obbezeichnung"), New System.Data.Common.DataColumnMapping("kategorie", "kategorie"), New System.Data.Common.DataColumnMapping("textmarkebeginn", "textmarkebeginn"), New System.Data.Common.DataColumnMapping("textmarkeende", "textmarkeende"), New System.Data.Common.DataColumnMapping("feldname", "feldname"), New System.Data.Common.DataColumnMapping("testdata", "testdata"), 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("userinterface", "userinterface"), New System.Data.Common.DataColumnMapping("HINT", "HINT"), New System.Data.Common.DataColumnMapping("eingabeformat", "eingabeformat"), New System.Data.Common.DataColumnMapping("Validierungsregel", "Validierungsregel")})})
|
||||
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"
|
||||
'
|
||||
'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")
|
||||
'
|
||||
'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", "meldungstexte", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("inhalt", "inhalt")})})
|
||||
Me.SqlDataAdapter2.UpdateCommand = Me.SqlUpdateCommand2
|
||||
'
|
||||
'SqlDeleteCommand2
|
||||
'
|
||||
Me.SqlDeleteCommand2.CommandText = "[pv_Feldtypvorlagenfeldregel_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_meldungstextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "meldungstextnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlInsertCommand2
|
||||
'
|
||||
Me.SqlInsertCommand2.CommandText = "[pv_Feldtypvorlagenfeldregel_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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@meldungstextnr", System.Data.SqlDbType.Int, 4, "meldungstextnr"))
|
||||
'
|
||||
'SqlSelectCommand2
|
||||
'
|
||||
Me.SqlSelectCommand2.CommandText = "[pv_Feldtypvorlagenfeldregel_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_Feldtypvorlagenfeldregel_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("@inhalt", System.Data.SqlDbType.VarChar, 1024, "inhalt"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@meldungstextnr", System.Data.SqlDbType.Int, 4, "meldungstextnr"))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_meldungstextnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "meldungstextnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_inhalt", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "inhalt", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'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.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(224, 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(208, 184)
|
||||
Me.C1TrueDBDropdown1.TabIndex = 5
|
||||
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, 204, 180</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, 204, 180</ClientA" & _
|
||||
"rea></Blob>"
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_vorlagenfeldregel_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_vorlagenfeldregel_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("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"))
|
||||
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("@feldtyp", System.Data.SqlDbType.VarChar, 255, "feldtyp"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 1024, "datenherkunft"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@obbezeichnung", System.Data.SqlDbType.VarChar, 255, "obbezeichnung"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kategorie", System.Data.SqlDbType.Int, 4, "kategorie"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@textmarkebeginn", System.Data.SqlDbType.VarChar, 255, "textmarkebeginn"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@textmarkeende", System.Data.SqlDbType.VarChar, 255, "textmarkeende"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@testdata", System.Data.SqlDbType.VarChar, 255, "testdata"))
|
||||
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("@userinterface", System.Data.SqlDbType.Bit, 1, "userinterface"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@HINT", System.Data.SqlDbType.VarChar, 255, "HINT"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabeformat", System.Data.SqlDbType.VarChar, 255, "eingabeformat"))
|
||||
Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Validierungsregel", System.Data.SqlDbType.VarChar, 255, "Validierungsregel"))
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "[pv_vorlagenfeldregel_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("@vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, "vorlagenfeldregelnr"))
|
||||
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("@feldtyp", System.Data.SqlDbType.VarChar, 255, "feldtyp"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 1024, "datenherkunft"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@obbezeichnung", System.Data.SqlDbType.VarChar, 255, "obbezeichnung"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@kategorie", System.Data.SqlDbType.Int, 4, "kategorie"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@textmarkebeginn", System.Data.SqlDbType.VarChar, 255, "textmarkebeginn"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@textmarkeende", System.Data.SqlDbType.VarChar, 255, "textmarkeende"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldname", System.Data.SqlDbType.VarChar, 255, "feldname"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@testdata", System.Data.SqlDbType.VarChar, 255, "testdata"))
|
||||
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("@userinterface", System.Data.SqlDbType.Bit, 1, "userinterface"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@HINT", System.Data.SqlDbType.VarChar, 255, "HINT"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabeformat", System.Data.SqlDbType.VarChar, 255, "eingabeformat"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Validierungsregel", System.Data.SqlDbType.VarChar, 255, "Validierungsregel"))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_HINT", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "HINT", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Validierungsregel", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Validierungsregel", 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_datenherkunft", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabeformat", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabeformat", 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_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kategorie", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kategorie", 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_obbezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "obbezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_testdata", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdata", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_textmarkebeginn", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "textmarkebeginn", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_textmarkeende", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "textmarkeende", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_userinterface", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "userinterface", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "[pv_vorlagenfeldregel_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_vorlagenfeldregelnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "vorlagenfeldregelnr", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_HINT", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "HINT", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_Validierungsregel", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Validierungsregel", 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_datenherkunft", System.Data.SqlDbType.VarChar, 1024, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "datenherkunft", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabeformat", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "eingabeformat", 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_feldname", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldname", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtyp", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "feldtyp", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_kategorie", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "kategorie", 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_obbezeichnung", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "obbezeichnung", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_standard", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "standard", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_testdata", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "testdata", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_textmarkebeginn", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "textmarkebeginn", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_textmarkeende", System.Data.SqlDbType.VarChar, 255, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "textmarkeende", System.Data.DataRowVersion.Original, Nothing))
|
||||
Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_userinterface", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "userinterface", System.Data.DataRowVersion.Original, Nothing))
|
||||
'
|
||||
'frmDomainVorlagenfeldregel
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(792, 553)
|
||||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.C1TrueDBDropdown1})
|
||||
Me.Name = "frmDomainVorlagenfeldregel"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.C1TrueDBDropdown1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub frmDomainMandant_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim i As Integer
|
||||
Me.TableName = "vorlagenfeldregel"
|
||||
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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.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.C1TrueDBDropdown1.DataSource = Me.DataSet2
|
||||
Me.C1TrueDBDropdown1.DataMember = "meldungstexte"
|
||||
Me.C1TrueDBDropdown1.DisplayColumns(1).Width = 0
|
||||
Me.C1TrueDBDropdown1.Columns(0).Caption = MyMsg.Get_Meldungstext(7012)
|
||||
Me.DomainList.Columns("feldtyp").DropDown = Me.C1TrueDBDropdown1
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "standard" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim btn As New ToolBarButton()
|
||||
btn.ImageIndex = 3
|
||||
Me.ToolBar1.Buttons.Add(btn)
|
||||
|
||||
End Sub
|
||||
|
||||
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
|
||||
If ToSelect Then Get_Selected_Items()
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
Case 2
|
||||
Domainlist_dblclick(sender, e)
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub Domainlist_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
|
||||
If ToSelect Then
|
||||
coltransferkey.Add(Me.DomainList.Columns(0).Text)
|
||||
Me.Close()
|
||||
Exit Sub
|
||||
End If
|
||||
Dim frm As New frmVorlagenfelddetail()
|
||||
Dim s As String
|
||||
frm.TextBox1.Text = Me.DomainList.Columns(1).Text
|
||||
frm.TextBox2.Text = Me.DomainList.Columns(2).Text
|
||||
frm.cbFeldtyp.Text = Me.DomainList.Columns(3).Text
|
||||
frm.cbStandard.Checked = Me.DomainList.Columns(5).Text = "True"
|
||||
frm.txtDatenherkunft.Text = Me.DomainList.Columns(4).Text
|
||||
frm.TxtTextmakebeginn.Text = Me.DomainList.Columns(6).Text
|
||||
frm.txtTextmarkeEnde.Text = Me.DomainList.Columns(7).Text
|
||||
frm.txtFeldname.Text = Me.DomainList.Columns(8).Text
|
||||
frm.TxtTestdata.Text = Me.DomainList.Columns(9).Text
|
||||
frm.ShowDialog()
|
||||
Me.DomainList.Columns(1).Text = frm.TextBox1.Text
|
||||
Me.DomainList.Columns(2).Text = frm.TextBox2.Text
|
||||
Me.DomainList.Columns(3).Text = frm.cbFeldtyp.Text
|
||||
Me.DomainList.Columns(4).Text = frm.txtDatenherkunft.Text
|
||||
If frm.cbStandard.Checked Then Me.DomainList.Columns(5).Text = "True" Else Me.DomainList.Columns(5).Text = False
|
||||
Me.DomainList.Columns(6).Text = frm.TxtTextmakebeginn.Text
|
||||
Me.DomainList.Columns(7).Text = frm.txtTextmarkeEnde.Text
|
||||
Me.DomainList.Columns(8).Text = frm.txtFeldname.Text
|
||||
Me.DomainList.Columns(9).Text = frm.TxtTestdata.Text
|
||||
End Sub
|
||||
|
||||
Private Sub Get_Selected_Items()
|
||||
Dim i As Long
|
||||
For i = 0 To Me.DomainList.SelectedRows.Count - 1
|
||||
coltransferkey.Add(Me.DomainList.Columns(0).CellValue(Me.DomainList.SelectedRows.Item(i)))
|
||||
Next
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,162 @@
|
||||
<?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="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="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="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>485, 17</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>frmDomainZuordnungen</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,212 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.Drawing
|
||||
Imports System.Drawing.Color
|
||||
Imports System.ComponentModel
|
||||
|
||||
|
||||
Public Class frmDomainZuordnungen
|
||||
Inherits frmDomainEditor
|
||||
|
||||
#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 DataSet1 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 SqlConnection2 As System.Data.SqlClient.SqlConnection
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
||||
Me.DataSet1 = 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.SqlConnection2 = New System.Data.SqlClient.SqlConnection()
|
||||
CType(Me.DataSet1, 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", "zuordnung", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("zuordnungnr", "zuordnungnr"), 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("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"
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "[pv_zuordung_select]"
|
||||
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlSelectCommand1.Connection = Me.SqlConnection2
|
||||
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_zuordung_insert]"
|
||||
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlInsertCommand1.Connection = Me.SqlConnection2
|
||||
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("@zuordnungnr", System.Data.SqlDbType.Int, 4, "zuordnungnr"))
|
||||
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("@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("@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_zuordnung_update]"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection2
|
||||
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("@zuordnungnr", System.Data.SqlDbType.Int, 4, "zuordnungnr"))
|
||||
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("@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("@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_zuordnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zuordnungnr", 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_zuordnung_delete]"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection2
|
||||
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_zuordnungnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "zuordnungnr", 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))
|
||||
'
|
||||
'SqlConnection2
|
||||
'
|
||||
Me.SqlConnection2.ConnectionString = "data source=shu;initial catalog=edoka_tkb;integrated security=SSPI;persist securi" & _
|
||||
"ty info=False;workstation id=SHU;packet size=4096"
|
||||
'
|
||||
'frmDomainZuordnungen
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(560, 272)
|
||||
Me.Name = "frmDomainZuordnungen"
|
||||
Me.Text = ""
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.TableName = "zuordnung"
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection2.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.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
End Sub
|
||||
|
||||
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()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Sub frmClose(ByVal sender As System.Object, ByVal e As CancelEventArgs) Handles MyBase.Closing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.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 Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
End Class
|
||||
134
EDOKA/Backup1/Systemadministration/Domains/frmSysadminmenu.Designer.vb
generated
Normal file
134
EDOKA/Backup1/Systemadministration/Domains/frmSysadminmenu.Designer.vb
generated
Normal file
@@ -0,0 +1,134 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmSysadminmenu
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSysadminmenu))
|
||||
Me.Toolbtn_Schliessen = New System.Windows.Forms.ToolBar
|
||||
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
|
||||
Me.SysMenu = New System.Windows.Forms.TreeView
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
|
||||
Me.MnuNeuerKnoten = New System.Windows.Forms.MenuItem
|
||||
Me.MnuKnotenLoeschen = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem2 = New System.Windows.Forms.MenuItem
|
||||
Me.MenuItem4 = New System.Windows.Forms.MenuItem
|
||||
Me.MnuSave = New System.Windows.Forms.MenuItem
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Toolbtn_Schliessen
|
||||
'
|
||||
Me.Toolbtn_Schliessen.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
||||
Me.Toolbtn_Schliessen.ButtonSize = New System.Drawing.Size(23, 22)
|
||||
Me.Toolbtn_Schliessen.DropDownArrows = True
|
||||
Me.Toolbtn_Schliessen.ImageList = Me.ImageList1
|
||||
Me.Toolbtn_Schliessen.ImeMode = System.Windows.Forms.ImeMode.NoControl
|
||||
Me.Toolbtn_Schliessen.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Toolbtn_Schliessen.Name = "Toolbtn_Schliessen"
|
||||
Me.Toolbtn_Schliessen.ShowToolTips = True
|
||||
Me.Toolbtn_Schliessen.Size = New System.Drawing.Size(292, 28)
|
||||
Me.Toolbtn_Schliessen.TabIndex = 1
|
||||
'
|
||||
'ToolBarButton1
|
||||
'
|
||||
Me.ToolBarButton1.ImageIndex = 0
|
||||
Me.ToolBarButton1.Name = "ToolBarButton1"
|
||||
'
|
||||
'SysMenu
|
||||
'
|
||||
Me.SysMenu.AllowDrop = True
|
||||
Me.SysMenu.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SysMenu.ImageIndex = 0
|
||||
Me.SysMenu.ImageList = Me.ImageList1
|
||||
Me.SysMenu.Indent = 19
|
||||
Me.SysMenu.ItemHeight = 16
|
||||
Me.SysMenu.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SysMenu.Name = "SysMenu"
|
||||
Me.SysMenu.SelectedImageIndex = 0
|
||||
Me.SysMenu.Size = New System.Drawing.Size(292, 490)
|
||||
Me.SysMenu.TabIndex = 2
|
||||
'
|
||||
'ImageList1
|
||||
'
|
||||
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||
Me.ImageList1.Images.SetKeyName(0, "")
|
||||
Me.ImageList1.Images.SetKeyName(1, "")
|
||||
Me.ImageList1.Images.SetKeyName(2, "")
|
||||
Me.ImageList1.Images.SetKeyName(3, "")
|
||||
Me.ImageList1.Images.SetKeyName(4, "")
|
||||
'
|
||||
'ContextMenu1
|
||||
'
|
||||
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerKnoten, Me.MnuKnotenLoeschen, Me.MenuItem2, Me.MenuItem4, Me.MnuSave})
|
||||
'
|
||||
'MnuNeuerKnoten
|
||||
'
|
||||
Me.MnuNeuerKnoten.Index = 0
|
||||
Me.MnuNeuerKnoten.Text = "Neuer Eintrag "
|
||||
'
|
||||
'MnuKnotenLoeschen
|
||||
'
|
||||
Me.MnuKnotenLoeschen.Index = 1
|
||||
Me.MnuKnotenLoeschen.Text = "Eintrag löschen"
|
||||
'
|
||||
'MenuItem2
|
||||
'
|
||||
Me.MenuItem2.Index = 2
|
||||
Me.MenuItem2.Text = "Eintrag umbenennen"
|
||||
'
|
||||
'MenuItem4
|
||||
'
|
||||
Me.MenuItem4.Index = 3
|
||||
Me.MenuItem4.Text = "-"
|
||||
'
|
||||
'MnuSave
|
||||
'
|
||||
Me.MnuSave.Index = 4
|
||||
Me.MnuSave.Text = "Menu Speichern"
|
||||
'
|
||||
'frmSysadminmenu
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(292, 518)
|
||||
Me.Controls.Add(Me.SysMenu)
|
||||
Me.Controls.Add(Me.Toolbtn_Schliessen)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmSysadminmenu"
|
||||
Me.Text = "frmSysadminmenu"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Toolbtn_Schliessen As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents SysMenu As System.Windows.Forms.TreeView
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||
Friend WithEvents MnuNeuerKnoten As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MnuKnotenLoeschen As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||
Friend WithEvents MnuSave As System.Windows.Forms.MenuItem
|
||||
End Class
|
||||
564
EDOKA/Backup1/Systemadministration/Domains/frmSysadminmenu.resx
Normal file
564
EDOKA/Backup1/Systemadministration/Domains/frmSysadminmenu.resx
Normal file
@@ -0,0 +1,564 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>354, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADQ
|
||||
CwAAAk1TRnQBSQFMAgEBBQEAAQkBAAEEAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8ARAAF+QIABfwzAAH5
|
||||
BPQB/wH5AfwB/wT0AfwxAAH5AvQB+QgAAfwC9AH8MAAB+QH0AfkCAAH/BPQB/wIAAfwB9AH8MAAB+QL0
|
||||
AfkIAAH8AvQB/DEAAfkE9AH/AfkB/AH/BPQB/DMABfkCAAX8/wB5AAEDAf8LAAH/HgAB7AP/AQcC/wEH
|
||||
Av8BBwH/BgAB7AEDAewB/wsAAfsBAAH7HAAB7AP/AQcC/wEHAv8BBwH/BAABAwHsAQMB7AEDAf8LAAH/
|
||||
AQAB/wEHAfsOAAH/AfsKAAHsCwcDAAEDAewBAwHsAQMB7AH/AQAB7AkAAfsBAAH7AQcB/wEHAfsKAAH/
|
||||
AQAB+wH/AfsB/wgAAewB/wLsAQcC7AEHAuwBBwH/AwAB7AEDAewBAwHsAQMB/wEAAewJAAH/AQAC/wH7
|
||||
AQcB/wEHAfsHAAH7AgAB/wH7Af8B+wH/AfsGAAHsAf8C7AEHAuwBBwLsAQcB/wMAAQMB7AEDAgAB7AH/
|
||||
AQAB7AkAAfsBAAH7Av8BBwH7AQcB/wYAAf8BAAH/AQAB+wH/AfsB/wH7Af8B+wH/BAAB7AsHAwAB7AED
|
||||
AewCBwEDAf8BAAHsAQABBgcAAf8BAAL/AfsBBwH/AQcB+wUAAfsBAAL/AQAB/wH7Af8B+wH/AfsB/wH7
|
||||
Af8DAAHsAf8C7AEHAuwBBwLsAQcB/wMAAQMB7AEDAewBAwHsAf8CAAEGBf4DAAH7AQAB+wP/AfsBBwH/
|
||||
BgAD/wIAAf8B+wH/AfsB/wH7Af8B+wMAAewB/wLsAQcC7AEHAuwBBwH/AwAB7AEDAewBAwHsAQMB/wEA
|
||||
AW0G/gMAAf8BAAL/AfsC/wEHAfsIAAP/AgAB+wH/AfsB/wH7Af8DAAHsCwcDAAEDAewBAwHsAQMB7AH/
|
||||
AQAB7AFtAf4EbQMAAfsB/wIAAv8B+wEHAf8GAAH7Af8CAAL/AQAB/wH7Af8B+wH/AfsDAAHsAf8C7AEH
|
||||
AuwBBwLsAQcB/wMAAewBAwHsAQMB7AEDAf8BAAHsAQACbQcAAfsB/wH7AgAB/wEHAfsHAAH7Af8B+wEA
|
||||
Av8CAAH7Af8B+wH/AwAB7AH/AuwBBwLsAQcC7AEHAf8DAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0JAAH/
|
||||
AfsB/wIAAf8JAAH/AfsBAAL/AwAB/wH7AwAB7AgHBgAB7AEDAQcB/wHsAQAD7AwAAfsB/wH7Af8B+w8A
|
||||
Af8B+wYAAewI+wHsAf8B7AMAAQcB/wHsAQAF7A0AAfsB/xkAAewI+wLsNQAK7AQAAUIBTQE+BwABPgMA
|
||||
ASgDAAFAAwABIAMAAQEBAAEBBgABARYAA/8BAAL/BgAC/wYAAv8GAAL/BgAC/wYAAcEBgwYAAYABAQ4A
|
||||
ARABCA4AAYABAQYAAcEBgwYAAv8GAAL/BgAC/wYAAv8GAAH8AX8B5wP/AcABAQHwAX8BwwP/AcABAQHA
|
||||
AX8BwAH/AfgB/wHAAQEBAAEfAcABPwHwAT8BwAEBAQABHwHAAQ8B4AEPAcABAQEAARcBwAEHAcABAwHA
|
||||
AQEBAAEHAcABBwGAAQABwAEBAgABwAEHAgABwAEBAgABwAEHAgABwAEBAgABwAEHAYABAAHAAQECAAHA
|
||||
AQcBgAEAAcABAQEAAQcBwAEHAcABAAHAAQEBAAEXAfABBwHgAQABwAEBAQABHwH4AQcB+QEAAcABAwEA
|
||||
AR8B+AEHAf8BzwHAAQcBAAEfAf4BfwL/AcABDws=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>460, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA
|
||||
IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8
|
||||
fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4
|
||||
eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n
|
||||
pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a
|
||||
WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys
|
||||
rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe
|
||||
ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE
|
||||
gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt
|
||||
qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ
|
||||
jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l
|
||||
mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b
|
||||
iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs
|
||||
ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w
|
||||
owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp
|
||||
lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak
|
||||
jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2
|
||||
pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc
|
||||
XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVPX9+FXx7wAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7+/17u++w3ZKd0t6Ve8AAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAMesk3ZJ+5Po2UhISEhIee8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAC3rKh1QkJCeYXOwEJCQkJChe8A7+/08e8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKzR10JCQkJCdqPi
|
||||
skJCQkJCgfW2w6RFTPfvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJLn3INBQUFBQYPhmkFBQUFBQ3nQsmdB
|
||||
QXj77QAAAAAAAAAAAAAAAAAAAAAAAAAAAKzq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+QAAAAAAAAAA
|
||||
AAAAAAAAAAAAAKzs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eAAAAAAAAAAAAAAAAAAAAAAArKyi
|
||||
Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7wAAAAAAAAAAAAAAAAAAAACswslkOjpluslkOjo6Ojo6
|
||||
Ojo6Ojo6Ojo6Ojo6OjqA7wAAAAAAAAAAAAAAAAAAAACs4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3
|
||||
Nzd4AAAAAAAAAAAAAAAAAAAAAIbSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7wDv7/IAAAAA
|
||||
AAAAAAAAAKvMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1AAAAAAAAAAAAAMXOynIw
|
||||
MDAwMDAwMDAwMEoAAAAArdDLoXIwMDAwMDAwczAwMDL97wAAAAAAAAAAAAC148hyLS0tLS0tLS1yUAAA
|
||||
AAAAAACp5d2QLS0tLS0tLS0tLS1G9QAAAAAAAAAAAAAAs+PIcSsrKysrKytPAAAAAAAAAAAAndLeoSsr
|
||||
KysrKysrKysu+wAAAAAAAAAAAAAAANXMvyoqKioqKkAAAAAAAAAAAAAAAJ3S3ZAqKioqKioqKioqegAA
|
||||
AAAAAAAAAAAAU5zjoCgoKCgoYVIAAAAAAAAAAAAAAACd5dliKCgoKCgoKChiAAAAAAAAAAAAxus7OX5h
|
||||
YScnJycnOAAAAAAAAAAAAAAAAAAAxOCnJycnJycnJzIAAAAAAAAAAAAAztclJSUlJSUlJSUleQAAAAAA
|
||||
AAAAAAAAAAAAgOfcfiUlJSUlYwAAAAAAAAAAAACR5LkiIiIiIiIiIiIi9gAAAAAAAAAAAAAAAAAAANXh
|
||||
mSIiIiIiRO4AAAAAAAAAAACR46AgICAgICAgICBe8wAAAAAAAAAAAAAAAAAAAKrO1yAgICAgL/727AAA
|
||||
AAAAAACR46AeHh4eHh4eHh4m9AAAAAAAAAAAAAAAAAAAAJXS3H0eHh4eHiMvTPz0AAAAAACR5NcdHR0d
|
||||
HR0dHR0m9wAAAAAAAAAAAAAAAAAAAADp3oQdHR0dHR0dHR/7AAAAAACk5tyEbxwcHBwcHBwf+wAAAAAA
|
||||
AAAAAAAAAAAAAADq34ocHBwcHBwcHBz7AAAAAAAApaXBzLGMbxoaGhoaTgAAAAAAAAAAAAAAAAAAAADq
|
||||
y4oaGhoaGhoaGhr7AAAAAAAAAAAApbPgnxkZGRkZRPAAAAAAAAAAAAAAAAAAAADq3ooZGRkZGRkZGRn6
|
||||
AAAAAAAAAAAAAKTksBYWFhYWX/gAAAAAAAAAAAAAAAAAAADp23AWFhYWFhYWFhbyAAAAAAAAAAAAU6un
|
||||
XBUVFRUVFVHsAAAAAAAAAAAAAAAAAADn2V0VFRUVFRUVXWAAAAAAAAAAAAC+448UFBQUFBQUFCH4AAAA
|
||||
AAAAAAAAAAAAAKvjmBQUFBQUY9YAAAAAAAAAAAAAAKXNixISEhISEhISEhJM9AAAAAAAAAAAAAAAANDb
|
||||
fBISEhISNvMAAAAAAAAAAAAAperflhEREREREREREREXUfEAAAAAAAAAAAAAnOSYERERERERG/7tAAAA
|
||||
AAAAAAAAAKPjvxMPDw8PDw8PDw8PG1HyAAAAAAAAAAClz6dbDw8PDw8PDyH97QAAAAAAAAAAAJXS24IN
|
||||
DQ0NDQ0NDQ0NDRhO+AAAAAAAALe7p1oNDQ0NDQ0NDQ0h/QAAAAAAAAAAAAC8zLgMDAwMbWwMDAwMDAwM
|
||||
KU779e7seqSLDgwMDAwMDAwMDAwMIQAAAAAAAAAAAACU0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL
|
||||
CwsLCwsLCwsLPQAAAAAAAAAAAAAA0tIjAACl0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVAAA
|
||||
AAAAAAAAAAAAAAAAAACszrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkvAAAAAAAAAAAAAAAAAAAA
|
||||
AAC14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRcAAAAAAAAAAAAAAAAAAAAAAKXT3WoHBwcHBwcH
|
||||
BwcHBwcHBwcHBwcHBwc2eq6urgAAAAAAAAAAAAAAAAAAAAAAAJLOuAYGBgYGBleIVwYGBgYGBgYGBgYG
|
||||
BgYh+AAAAAAAAAAAAAAAAAAAAAAAAAAAAKPkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTgAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAArujdiFYsAKPkuAMDAwMDENTMpgMDAwMDbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHe9vb0AAJLl
|
||||
1wICAgICJIHT3ocCAmhuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/n2GgCAgICKYGdztlu
|
||||
bgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/T24doAQEBgQAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACvr6+vr6+vAAAAAAAAAAAAAAAAAAAAAAAAAAD///wH//8AAP//
|
||||
AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/
|
||||
AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A
|
||||
P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD
|
||||
AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA
|
||||
B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/
|
||||
AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP//
|
||||
8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s
|
||||
bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN
|
||||
jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx
|
||||
cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG
|
||||
hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y
|
||||
lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u
|
||||
rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n
|
||||
ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E
|
||||
xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn
|
||||
ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa
|
||||
lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5
|
||||
dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k
|
||||
YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/
|
||||
ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf
|
||||
jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l
|
||||
kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p
|
||||
lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR
|
||||
jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAA8/P49vMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPN8+fPKrnS8efMAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAPO8s5WmzdSUbm619fPzAAAAAAAAAAAAAAAAAAAAAAAA3KNra5PcyGprb3B5vJZ1+gAA
|
||||
AAAAAAAAAAAAAAAAANflohxnG7S0G2drkN20G6JyfQAAAAAAAAAAAAAAAAB7qu64Z2NjY2NjY2OSopFj
|
||||
Y2SlAAAAAAAAAAAAAAAA3pNp3MgZX19fX19fX18aGl9fYa8AAAAAAAAAAAAAAOOyGBmPjlxcXFwYGBkY
|
||||
XFxcXFxp9gAAAAAAAAAAAAC62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+AAAAAAAAAM/Zm1ZTU1NTU1dz
|
||||
AADJ1LicU1NTV41UUXH4AAAAAAAAAM7Ym05MTExStwAAAAAA0NihTkxMTE5MkH0AAAAAAAAAAODTS0lJ
|
||||
SpYAAAAAAAAA5NibSUlJSUlLeAAAAAAAAK8BubiLSEhPgAAAAAAAAAAA6MBGSEhISGIAAAAAAAAAxUYW
|
||||
FkRERGAAAAAAAAAAAADQ7KAWRERegAAAAAAAANvAQkJCQkJCcQAAAAAAAAAAAADmuxVCQmb79QAAAAAA
|
||||
1btBQUFBQUF1AAAAAAAAAAAAANbTFEFBiU1lfQAAAADOxYdAQEBAQG0AAAAAAAAAAAAAuuKIQEBAQED+
|
||||
AAAAAAAAzMCoPT4+W/YAAAAAAAAAAAC22Zo+Pj4+Pv0AAAAAAAAA19OaOTpD+wAAAAAAAAAAAMHiPDo6
|
||||
OhIT+AAAAAAAALfLiTs7Oz929AAAAAAAAAAA3744OziGiqAAAAAAAAAAx4YPNjY2NkX99AAAAAAAAADv
|
||||
pxA2DqTxAAAAAAAAAOjEMDIyMjIyN1X89AAAAAAArsUzMjIwR3/yAAAAAAAAuuyZDSoNKi4uL1V/9wAA
|
||||
AMLGmSouLi4qR/wAAAAAAAAA560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbAAAAAAAAADk5OTk8L8nJiYm
|
||||
KSwtMSsLCyYmJgoLJTF3AAAAAAAAAAAAAOTqsAkkJCQkJCQjIyQkJAmfXZgjUAAAAAAAAAAAAAAA5Nqe
|
||||
CCIiCAgiIiIiCCIiIEPRXV0AAAAAAAAAAAAAAADP0oMHISGrniEhISGEISEhEXoAAAAAAAAAAAAAAAAA
|
||||
AOTmsR8DQ+29BgYEntKXAwYepAAAAAAAAAAAAAAAAAAAAOTkv4wA68OCBR018L0FBTVdAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAADg0oECAlq35qxdAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOTpsbGtAAAAAAAAAAAAAAAA
|
||||
AAD//B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af
|
||||
+AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I
|
||||
AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU
|
||||
lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF
|
||||
hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq
|
||||
qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO
|
||||
TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl
|
||||
ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
ADVDNAAAAAAAAAAAAAAtQCIBGT0sQTgAAAAAAAAPAR8MAQ0WAQY7AAAAAAA5EAEBAQEBAQEIRDw5AAAF
|
||||
Cw0BAQEgAQEBAwgEMAAAAQEBASkAAAAAAQEBASoAACQBASUAAAAAAAABASE+Nx4OAQQ6AAAAAAAACQEN
|
||||
E0MBAQERPwAAAAAAAB4BAQEzHh4BAkUyAAAAAAABAREmAAAjAQEcQjMAAAAnAQEVMQAAAQEBARovQi4Y
|
||||
AQEBASgAABceDwEBAQEBAQEHGwEAAAAAABIBAQEBAQEBCjYAAAAAAAAXAR4dARQrAQEAAAAAAAAAAAAA
|
||||
FwEBAAAAAAAAAP4/ALrwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4AAAB+AAzwPhVlOBwVNTgAEAAIAD
|
||||
uJzgB1NX4A9Rcfx/AAAoAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA
|
||||
AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU
|
||||
FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K
|
||||
yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk
|
||||
kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay
|
||||
svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v
|
||||
L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E
|
||||
xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n
|
||||
lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em
|
||||
kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au
|
||||
rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA
|
||||
AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/
|
||||
v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc
|
||||
VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9
|
||||
vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA
|
||||
AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7
|
||||
u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7
|
||||
u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4
|
||||
uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4
|
||||
uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2
|
||||
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2
|
||||
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA
|
||||
AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0
|
||||
tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq
|
||||
nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej
|
||||
o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei
|
||||
jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA
|
||||
AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew
|
||||
rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU
|
||||
VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w
|
||||
sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u
|
||||
rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej
|
||||
lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r
|
||||
q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC
|
||||
QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg
|
||||
kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p
|
||||
qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi
|
||||
Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n
|
||||
p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t
|
||||
m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui
|
||||
m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA
|
||||
AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1
|
||||
cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g
|
||||
oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA
|
||||
AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e
|
||||
nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e
|
||||
nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c
|
||||
nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c
|
||||
nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u
|
||||
nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em
|
||||
kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA
|
||||
AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO
|
||||
DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA
|
||||
ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW
|
||||
lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW
|
||||
lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic
|
||||
iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT
|
||||
k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2
|
||||
NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR
|
||||
kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA
|
||||
AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ
|
||||
iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM
|
||||
jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO
|
||||
TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK
|
||||
iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA
|
||||
AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I
|
||||
iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I
|
||||
iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk
|
||||
j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA
|
||||
AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG
|
||||
hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD
|
||||
g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD
|
||||
g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB
|
||||
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB
|
||||
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy
|
||||
oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/
|
||||
f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT
|
||||
E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8
|
||||
fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8
|
||||
fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6
|
||||
ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v
|
||||
nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913
|
||||
d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913
|
||||
d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1
|
||||
df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1
|
||||
df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd
|
||||
if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz
|
||||
c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw
|
||||
cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY
|
||||
hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP
|
||||
T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA
|
||||
AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr
|
||||
a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t
|
||||
m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A
|
||||
QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm
|
||||
k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/
|
||||
AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA
|
||||
AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP
|
||||
AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA
|
||||
H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD
|
||||
AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g
|
||||
AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA
|
||||
AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA
|
||||
AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K
|
||||
yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E
|
||||
xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3
|
||||
rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A
|
||||
wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA
|
||||
AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq
|
||||
mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq
|
||||
KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6
|
||||
u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5
|
||||
uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my
|
||||
r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1
|
||||
tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd
|
||||
kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r
|
||||
nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA
|
||||
AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA
|
||||
AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA
|
||||
AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA
|
||||
ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA
|
||||
AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE
|
||||
hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf
|
||||
X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l
|
||||
pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h
|
||||
of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h
|
||||
ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e
|
||||
nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj
|
||||
lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud
|
||||
mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z
|
||||
j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA
|
||||
ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA
|
||||
ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR
|
||||
jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf
|
||||
X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR
|
||||
TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK
|
||||
iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK
|
||||
iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G
|
||||
hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G
|
||||
hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX
|
||||
if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG
|
||||
g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm
|
||||
Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC
|
||||
gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7
|
||||
e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992
|
||||
d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1
|
||||
df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx
|
||||
cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA
|
||||
ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS
|
||||
in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo
|
||||
aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+
|
||||
dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL
|
||||
TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA
|
||||
AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH
|
||||
8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA
|
||||
AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA
|
||||
AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ
|
||||
SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV
|
||||
leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA
|
||||
AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX
|
||||
l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ
|
||||
mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA
|
||||
ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA
|
||||
AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D
|
||||
g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ
|
||||
mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ
|
||||
mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt
|
||||
bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk
|
||||
ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ
|
||||
mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ
|
||||
mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU
|
||||
lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA
|
||||
AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA
|
||||
mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user