dominic
/
Gaesteliste
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Changes frmPersons Title to whatever we want (edit or add Guest)

Browse Source
master
Dominic Reich 9 years ago committed by Dominic Reich
parent bba8907c95
commit c12a2bfc7f
14 changed files with 457 additions and 48 deletions
Show Stats Download Patch File Download Diff File

BIN
.vs/Gästeliste/v14/.suo
View File

Binary file not shown.

366
Gästeliste/GästeDataSet.Designer.vb generated
Unescape View File

@ -27,6 +27,8 @@ Partial Public Class GästeDataSet
Private tableGäste As GästeDataTable
Private tableLänder As LänderDataTable
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -59,6 +61,9 @@ Partial Public Class GästeDataSet
If (Not (ds.Tables("Gäste")) Is Nothing) Then
MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
End If
If (Not (ds.Tables("Länder")) Is Nothing) Then
MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@ -86,6 +91,16 @@ Partial Public Class GästeDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property Länder() As LänderDataTable
Get
Return Me.tableLänder
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
@ -156,6 +171,9 @@ Partial Public Class GästeDataSet
If (Not (ds.Tables("Gäste")) Is Nothing) Then
MyBase.Tables.Add(New GästeDataTable(ds.Tables("Gäste")))
End If
If (Not (ds.Tables("Länder")) Is Nothing) Then
MyBase.Tables.Add(New LänderDataTable(ds.Tables("Länder")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
@ -194,6 +212,12 @@ Partial Public Class GästeDataSet
Me.tableGäste.InitVars
End If
End If
Me.tableLänder = CType(MyBase.Tables("Länder"),LänderDataTable)
If (initTable = true) Then
If (Not (Me.tableLänder) Is Nothing) Then
Me.tableLänder.InitVars
End If
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -206,6 +230,8 @@ Partial Public Class GästeDataSet
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableGäste = New GästeDataTable()
MyBase.Tables.Add(Me.tableGäste)
Me.tableLänder = New LänderDataTable()
MyBase.Tables.Add(Me.tableLänder)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -214,6 +240,12 @@ Partial Public Class GästeDataSet
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Function ShouldSerializeLänder() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
@ -275,6 +307,9 @@ Partial Public Class GästeDataSet
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub GästeRowChangeEventHandler(ByVal sender As Object, ByVal e As GästeRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Delegate Sub LänderRowChangeEventHandler(ByVal sender As Object, ByVal e As LänderRowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
@ -695,6 +730,258 @@ Partial Public Class GästeDataSet
End Function
End Class
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class LänderDataTable
Inherits Global.System.Data.TypedTableBase(Of LänderRow)
Private columnLand As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "Länder"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property LandColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLand
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As LänderRow
Get
Return CType(Me.Rows(index),LänderRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event LänderRowChanging As LänderRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event LänderRowChanged As LänderRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event LänderRowDeleting As LänderRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Event LänderRowDeleted As LänderRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Sub AddLänderRow(ByVal row As LänderRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overloads Function AddLänderRow(ByVal Land As String) As LänderRow
Dim rowLänderRow As LänderRow = CType(Me.NewRow,LänderRow)
Dim columnValuesArray() As Object = New Object() {Land}
rowLänderRow.ItemArray = columnValuesArray
Me.Rows.Add(rowLänderRow)
Return rowLänderRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As LänderDataTable = CType(MyBase.Clone,LänderDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New LänderDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Sub InitVars()
Me.columnLand = MyBase.Columns("Land")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Private Sub InitClass()
Me.columnLand = New Global.System.Data.DataColumn("Land", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLand)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function NewLänderRow() As LänderRow
Return CType(Me.NewRow,LänderRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New LänderRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(LänderRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.LänderRowChangedEvent) Is Nothing) Then
RaiseEvent LänderRowChanged(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.LänderRowChangingEvent) Is Nothing) Then
RaiseEvent LänderRowChanging(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.LänderRowDeletedEvent) Is Nothing) Then
RaiseEvent LänderRowDeleted(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.LänderRowDeletingEvent) Is Nothing) Then
RaiseEvent LänderRowDeleting(Me, New LänderRowChangeEvent(CType(e.Row,LänderRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub RemoveLänderRow(ByVal row As LänderRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As GästeDataSet = New GästeDataSet()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "LänderDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
@ -891,6 +1178,49 @@ Partial Public Class GästeDataSet
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class LänderRow
Inherits Global.System.Data.DataRow
Private tableLänder As LänderDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableLänder = CType(Me.Table,LänderDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Property Land() As String
Get
If Me.IsLandNull Then
Return String.Empty
Else
Return CType(Me(Me.tableLänder.LandColumn),String)
End If
End Get
Set
Me(Me.tableLänder.LandColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Function IsLandNull() As Boolean
Return Me.IsNull(Me.tableLänder.LandColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub SetLandNull()
Me(Me.tableLänder.LandColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Row event argument class
'''</summary>
@ -926,4 +1256,40 @@ Partial Public Class GästeDataSet
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Class LänderRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As LänderRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public Sub New(ByVal row As LänderRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property Row() As LänderRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class

2
Gästeliste/GästeDataSet.vb
Unescape View File

@ -4,8 +4,6 @@
If (e.Column.ColumnName = Me.IDColumn.ColumnName) Then
'Benutzercode hier einfügen
End If
End Sub
End Class
End Class

7
Gästeliste/GästeDataSet.xsd
Unescape View File

@ -36,6 +36,13 @@
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="Länder" msprop:Generator_TableClassName="LänderDataTable" msprop:Generator_TableVarName="tableLänder" msprop:Generator_TablePropName="Länder" msprop:Generator_RowDeletingName="LänderRowDeleting" msprop:Generator_RowChangingName="LänderRowChanging" msprop:Generator_RowEvHandlerName="LänderRowChangeEventHandler" msprop:Generator_RowDeletedName="LänderRowDeleted" msprop:Generator_UserTableName="Länder" msprop:Generator_RowChangedName="LänderRowChanged" msprop:Generator_RowEvArgName="LänderRowChangeEvent" msprop:Generator_RowClassName="LänderRow">
<xs:complexType>
<xs:sequence>
<xs:element name="Land" msprop:Generator_ColumnVarNameInTable="columnLand" msprop:Generator_ColumnPropNameInRow="Land" msprop:nullValue="_empty" msprop:Generator_ColumnPropNameInTable="LandColumn" msprop:Generator_UserColumnName="Land" type="xs:string" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice>
</xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true">

3
Gästeliste/GästeDataSet.xss
Unescape View File

@ -6,7 +6,8 @@
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="0" ViewPortY="92" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:Gäste" ZOrder="1" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
<Shape ID="DesignTable:Gäste" ZOrder="2" X="182" Y="153" Height="257" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="24" SplitterPosition="253" />
<Shape ID="DesignTable:Länder" ZOrder="1" X="568" Y="278" Height="48" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="44" />
</Shapes>
<Connectors />
</DiagramLayout>

4
Gästeliste/Gästeliste.vbproj
Unescape View File

@ -26,13 +26,13 @@
<MapFileExtensions>false</MapFileExtensions>
<InstallUrl>http://tools.dominicreich.com/Gaesteliste/</InstallUrl>
<UpdateUrl>http://tools.dominicreich.com/Gaesteliste/</UpdateUrl>
<SupportUrl>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrl>
<SupportUrl>http://klamm.io</SupportUrl>
<ErrorReportUrl>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrl>
<ProductName>Gästeliste</ProductName>
<PublisherName>Dominic Reich</PublisherName>
<MinimumRequiredVersion>1.0.0.0</MinimumRequiredVersion>
<OpenBrowserOnPublish>false</OpenBrowserOnPublish>
<ApplicationRevision>21</ApplicationRevision>
<ApplicationRevision>22</ApplicationRevision>
<ApplicationVersion>1.0.1.%2a</ApplicationVersion>
<UseApplicationTrust>true</UseApplicationTrust>
<CreateDesktopShortcut>true</CreateDesktopShortcut>

2
Gästeliste/Gästeliste.vbproj.user
Unescape View File

@ -3,7 +3,7 @@
<PropertyGroup>
<PublishUrlHistory>Z:\Gaesteliste\|publish\</PublishUrlHistory>
<InstallUrlHistory>http://tools.dominicreich.com/Gaesteliste/</InstallUrlHistory>
<SupportUrlHistory>http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrlHistory>
<SupportUrlHistory>http://klamm.io|http://tmsn.at/%3ftools&amp;gaesteliste</SupportUrlHistory>
<UpdateUrlHistory>http://tools.dominicreich.com/Gaesteliste/</UpdateUrlHistory>
<BootstrapperUrlHistory />
<ErrorReportUrlHistory>https://github.com/freefallcid/Gaesteliste/issues</ErrorReportUrlHistory>

34
Gästeliste/frmAbout.resx
Unescape View File

@ -608,23 +608,23 @@ Passen Sie die Assemblyinformationen der Anwendung im Anwendungsbereich des Proj
</data>
<data name="lnkIcons.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAANrSURBVDhPdZB7TJNXGIdPJskgklJDIBCoTgQvEIgoQ9DB
7MR6A29QRoQ/jOjCsmg0drB0BGIMkzKBAkWLFAGVVOVi1FUrN6sbw7LSQlu5tWWtWOxGafvBSGai+flZ
vyzLkj3Jm5w3531O3vMj/+bkg6mPz/Q6w3546txSqXYfqvjVfVqioWovD3vutBiXhmU6l/mYsC6BGf8A
h8OJ2crliXmZecqy7mljzRDlqhuafyPVuHFF60GjjsLVkQU0jy5ANrqERxrziFgkimJ0QlgsVvaWTxOW
tqem4Du5GtXqRfz4ixPlP89BMjgH2W9OSNXzEKvdEA95oHrxGk1S6deMToiPj8+22NhY02dJiThe1Ymy
gb9Q2uPAYzOFPvMC7o5T6DEtQEX3ooF5XKc3KS4u/pbRvayOiIhQJSfE47CgGoIeD/pNFG6OuPC9chZ9
U2606+bQrndBOUnh4iAFRa9KxefzlzE+YYWGhl5P3BSHlJxTOHHnDxjsi/iqw4anZjcqnjignVnEhccO
PJzwoKTfhc7eZ5agoCB/xieEzWaXbIqLwUbuQeS1WTFmp3Ds5jQ0VjeO3LBAPe1CscKGWyNOHO16BelD
3fw+HnczoxPi6+ubGxu9HtHxSeDVaGnRg/IHFoj7Z/CT3oGuUfoLww5802lFVpsNjXSoVaKyM4zuDTIl
KirybWTkWnx+Ton8WzPQWf5EhWIKZztMKJBPonnQjny5Bdk3rCi6/wJCobCU0b1EcDjhrlVhIUg+1YTd
MisyZRO4OjiL1md2NA7YcVxuRlaLCfxWM/Jv29Bxr1uTlbU/mvGJPx2KISx4BeJySrBXZsPOOiO4tUak
ScbAuzSO9IZxHJJN4nDTFDJbf4e0vfvl3i9SuYxPSEBAgDIkkIU12/Owo96MHTV67Kw1gEc/xJM8x+5L
Y9hzeQJ7Giax/9osog8K6kl4uB+je4OUBrL9Ebw+GUkXjdhaacA2ulKr9EgT65EuGUVOgx4FLQYU0mGu
SSsQMuoH6CALA1ew8cmGeOTUqXG6bQylt59D1GVAdacWlfIBnG9U/F1Y0fYyT1CtZYWv28Wo/3CAn52N
knPn3xaVt7w6USTWZeSeVSSlfVm/MiZF4B8SmUl8WIn03Cq6lnuN/8Dy8/PLoDdJpc+r3/d0ffT+4v8h
5B0QifP0zn03OAAAAABJRU5ErkJggg==
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAA2tJREFUOE91kHtMk1cYh08mySCSUkMgEKhOBC8QiChD0MHsxHoDb1BGhD+M6MKy
aDR2sHQEYgyTMoECRYsUAZVU5WLUVSs3qxvDstJCW7m1Za1Y7EZp+8FIZqL5+Vm/LMuSPcmbnDfnfU7e
8yP/5uSDqY/P9DrDfnjq3FKpdh+q+NV9WqKhai8Pe+60GJeGZTqX+ZiwLoEZ/wCHw4nZyuWJeZl5yrLu
aWPNEOWqG5p/I9W4cUXrQaOOwtWRBTSPLkA2uoRHGvOIWCSKYnRCWCxW9pZPE5a2p6bgO7ka1epF/PiL
E+U/z0EyOAfZb05I1fMQq90QD3mgevEaTVLp14xOiI+Pz7bY2FjTZ0mJOF7VibKBv1Da48BjM4U+8wLu
jlPoMS1ARfeigXlcpzcpLi7+ltG9rI6IiFAlJ8TjsKAagh4P+k0Ubo648L1yFn1TbrTr5tCud0E5SeHi
IAVFr0rF5/OXMT5hhYaGXk/cFIeUnFM4cecPGOyL+KrDhqdmNyqeOKCdWcSFxw48nPCgpN+Fzt5nlqCg
IH/GJ4TNZpdsiovBRu5B5LVZMWancOzmNDRWN47csEA97UKxwoZbI04c7XoF6UPd/D4edzOjE+Lr65sb
G70e0fFJ4NVoadGD8gcWiPtn8JPega5R+gvDDnzTaUVWmw2NdKhVorIzjO4NMiUqKvJtZORafH5Oifxb
M9BZ/kSFYgpnO0wokE+iedCOfLkF2TesKLr/AkKhsJTRvURwOOGuVWEhSD7VhN0yKzJlE7g6OIvWZ3Y0
DthxXG5GVosJ/FYz8m/b0HGvW5OVtT+a8Yk/HYohLHgF4nJKsFdmw846I7i1RqRJxsC7NI70hnEckk3i
cNMUMlt/h7S9++XeL1K5jE9IQECAMiSQhTXb87Cj3owdNXrsrDWARz/EkzzH7ktj2HN5AnsaJrH/2iyi
DwrqSXi4H6N7g5QGsv0RvD4ZSReN2FppwDa6Uqv0SBPrkS4ZRU6DHgUtBhTSYa5JKxAy6gfoIAsDV7Dx
yYZ45NSpcbptDKW3n0PUZUB1pxaV8gGcb1T8XVjR9jJPUK1lha/bxaj/cICfnY2Sc+ffFpW3vDpRJNZl
5J5VJKV9Wb8yJkXgHxKZSXxYifTcKrqWe43/wPLz88ugN0mlz6vf93R99P7i/yHkHRCJ8/TOfTc4AAAA
AElFTkSuQmCC
</value>
</data>
</root>

2
Gästeliste/frmAbout.vb
Unescape View File

@ -22,7 +22,7 @@
End Sub
Private Sub lnkWebsite_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkWebsite.LinkClicked
Process.Start("http://tmsn.at/?tools&gaesteliste")
Process.Start("http://klamm.io")
End Sub
Private Sub lnkIcons_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lnkIcons.LinkClicked

10
Gästeliste/frmMain.Designer.vb generated
Unescape View File

@ -232,27 +232,27 @@ Partial Class frmMain
'
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.InfoToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.InfoToolStripMenuItem.Text = "Info"
'
'OnlineHilfeToolStripMenuItem
'
Me.OnlineHilfeToolStripMenuItem.Name = "OnlineHilfeToolStripMenuItem"
Me.OnlineHilfeToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.OnlineHilfeToolStripMenuItem.Text = "Online-Hilfe"
Me.OnlineHilfeToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.OnlineHilfeToolStripMenuItem.Text = "Webseite anzeigen"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(149, 6)
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(169, 6)
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'StatusStrip1

6
Gästeliste/frmMain.resx
Unescape View File

@ -120,6 +120,12 @@
<metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>142, 17</value>
</metadata>
<metadata name="GästeBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>142, 17</value>
</metadata>
<metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="GästeDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

2
Gästeliste/frmMain.vb
Unescape View File

@ -79,7 +79,7 @@ Public Class frmMain
End Sub
Private Sub OnlineHilfeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OnlineHilfeToolStripMenuItem.Click
Process.Start("http://tmsn.at/?tools&gaesteliste&hilfe")
Process.Start("http://klamm.io")
End Sub
Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click

32
Gästeliste/frmPerson.designer.vb generated
Unescape View File

@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmPerson
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@ -20,7 +20,7 @@ Partial Class frmPerson
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
@ -50,9 +50,9 @@ Partial Class frmPerson
Me.txtAnmerkung = New System.Windows.Forms.TextBox()
Me.chkStammgast = New System.Windows.Forms.CheckBox()
Me.chkBlacklist = New System.Windows.Forms.CheckBox()
Me.cboLand = New System.Windows.Forms.ComboBox()
Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GästeDataSet = New Gästeliste.GästeDataSet()
Me.cboLand = New System.Windows.Forms.ComboBox()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -343,6 +343,16 @@ Partial Class frmPerson
Me.chkBlacklist.TabIndex = 2
Me.chkBlacklist.UseVisualStyleBackColor = True
'
'cboLand
'
Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
Me.cboLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboLand.Location = New System.Drawing.Point(103, 177)
Me.cboLand.Name = "cboLand"
Me.cboLand.Size = New System.Drawing.Size(234, 21)
Me.cboLand.TabIndex = 3
'
'GästeBindingSource
'
Me.GästeBindingSource.DataMember = "Gäste"
@ -353,20 +363,6 @@ Partial Class frmPerson
Me.GästeDataSet.DataSetName = "GästeDataSet"
Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'cboLand
'
Me.cboLand.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboLand.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.GästeBindingSource, "Land", True))
Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill
Me.cboLand.FormattingEnabled = True
Me.cboLand.Items.AddRange(New Object() {"Deutschland", "Österreich", "Schweiz", "Niederlande"})
Me.cboLand.Location = New System.Drawing.Point(103, 177)
Me.cboLand.Name = "cboLand"
Me.cboLand.Size = New System.Drawing.Size(234, 21)
Me.cboLand.TabIndex = 3
Me.cboLand.Text = "Deutschland"
'
'frmPerson
'
Me.AcceptButton = Me.OK_Button

35
Gästeliste/frmPerson.vb
Unescape View File

@ -11,4 +11,39 @@ Public Class frmPerson
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Me.Tag = "add" Then
Me.Text = "Gast hinzufügen"
ElseIf Me.Tag = "edit" Then
Me.Text = "Gast bearbeiten"
End If
'Dim dt As DataTable = GästeDataSet.Tables("Länder")
'Dim dr As DataRow = dt.NewRow()
'With dr
'.Item("Land") = 'unfinished
'End With
'cboLand.Items.Add("Neues Land eintragen")
End Sub
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
If cboLand.Text = "Neues Land eintragen" Then
Dim NeuesLand As String = InputBox("Name des neuen Landes:", "Neues Land eintragen")
If NeuesLand <> "" Then
' eintragen
If Not cboLand.Items.Contains(NeuesLand) Then
Dim Anzahl As Integer = cboLand.Items.Count
cboLand.Items.Insert(Anzahl - 1, NeuesLand.ToString)
cboLand.Text = NeuesLand.ToString
Else
MsgBox("Tut mir leid, das Land ist doch schon in der Liste!")
Exit Sub
End If
Else
' abbruch
Exit Sub
End If
End If
End Sub
End Class

Write Preview
Loading…
Cancel
Save